Skip to main content

Full text of "Second Generation Control FORTRAN software : Urban Traffic Control System (UTCS), software support project"

See other formats


IE 

.A3 
no „ 
FHW£ 
KD- 
76-153 



t No. FHWA-RD-76-153 



NO GENERATION CONTROL FORTRAN SOFTWARE 



Uffian Traffic Control System (UTCS) 
Software Support Project 



Volume III - 2GCF Routines-Program Listings 



iSMfis^ 




Sr *T£S O* 



June 1976 
Final Report 



Document is available to the public through 
the National Technical Information Service, 
Springfield, Virginia 22161 



DEPARTMENT OF 
TRANSPORTATION 

JAN 12 i9b<: 



LIBRARY 



Prepared for 

FEDERAL HIGHWAY ADMINISTRATION 
Offices of Research & Development 
Washington, D. C. 20590 



FOREWORD 



This report documents the results of the research performed to date on 
the Second Generation UTCS Software System. This system provides for 
on-line traffic signal optimization. The documentation will be of interest 
to urban traffic engineers of cities who desire to undertake experiments to 
determine the effectiveness of applying second generation control software 
(in comparison with first generation type software) for various types of 
networks or portions of networks. 

This report is comprised of three volumes which detail the second 
generation software which was converted from machine dependent language 
to FORTRAN and those enhancements to the original software made during 
the conversion effort. This project was conducted for the Federal 
Highway Administration, Office of Research, Washington, D. C, under 
Contract DOT-FH-11-8317 "UTCS Software Support." 

While the software system described in this report was operational in 
the Washington, D. C, test facility, it will require additional pro- 
graming effort to render it operational in other cities. It is this 
same software system that will receive further investigation and become 
the subject of future research by the Federal Highway Administration. 

Sufficient copies of this report are being distributed in sets of three 
volumes by FHWA bulletin to provide a minimum of one set to each FHWA 
regional office, one set to each FHWA division office, and one set to 
each State highway agency. Direct distribution is being made so that 
the State and division office copies are sent to the division offices. 

C — sC?'^u~. 
Charles F. Scfy 
Director, Office of Research 



NOTICE 

This document is disseminated under the sponsorship of the Department of 
Transportation in the interest of information exchange. The United 
States Government assumes no liability for its contents or use thereof. 

The contents of this report reflect the views of Honeywell, Incorporated, 
which is responsible for the facts and the accuracy of the data presented 
herein. The contents do not necessarily reflect the official views or 
policy of the Department of Transportation. 

This report does not constitute a standard, specification, or regulation. 

The United States Government does not endorse products or manufacturers. 
Trademarks or manufacturers ' names appear herein only because they are 
considered essential to the object of this document. 




Te 
.As 

'MA 



Technicc.1 Report Documonl&tion Page 



4. Title ond Subtitle 

•-SECOND GENERATION CONTROL FORTRAN 

SOFTWARE / 
-Urban Traffic Control System (UTCS) 

Software Su pport Project - Vol . Ill 



1. Report No. 

FHWA-RD-76- 153 



2. Government Accession No. 



3. Recipient's Corolog No. 



7. Author's) 

Honeywell Traffic Man ag ement C e nter, 

*9. Performing Organization Name ond Address 

Honeywell Inc. , Traffic Management Center 
600 Second Street N. E. 
Hopkins, Minnesota 55343 



12. Sponsoimg Agency Name and Address 

Federal Highway Administration 
Offices of Research & Development 
Washington, D. C. 20950 



5. Report Date 

June 1976 



6. Performing Organization Cod- 



8. Performing Organization Reporl Nc. 



46457 



10. Work Unit No. (TRAIS) 

FCP No. 32B2-512 



I I. Contract 01 Cront No. 



DOT-FH-11-8317 



13. Type o( Report ond Period Covered 

Final Report 



l4. Sponsoring Agency Code 

T-0230 



15. Supplementory Notes 



C. J. MacGowan, FHWA Contract Manager 



16. Abs'roct 



The Second Generation UTCS developed by TRW was converted from its 
machine dependent language to FORTRAN. Enhancements to the system 
included an improved technique for determining when traffic signal timing 
pattern recomputation should occur; a change to provide for maintenance 
of user defined signal phase splits or offsets; a recoding of the link/ phase 
correlation; a modification in the offset optimization algorithm to properly 
compare optimum solutions for alternate cycle lengths; and numerous 
corrections to the UTCS data base. File maintenance for the source 
programs was developed, and all source images are in easily-modified 
magnetic tape formats. A source language editing program was added to 
the system library for the 2GC FORTRAN system. Documentation for 
routines which remain unchanged from the original 2GC was updated to 
reflect new documentation standards. 

Volume I - 2GCF Routine Program Descriptions 

s y \ DEPARTMENT OF 

Volume II - 2GCF Routine Program Descriptions (CoficT&fIkfgll)ORTATION 

Volume III - 2GCF Routine Listings 

JAN 12 \%l 



17. Key Words 



UTCS, Networks, Traffic Control 
Systems, Traffic Control Operations 



19. Security Clossif. (o( litis report) 

Unclassified 



10. Distribution $*otrmen* 



LIBRARY 



No restrictions. Ti 
available to the public through the 
National Technical Information" 
Service, Springfield, Virginia 22161 



20. Security Classif. (of this page) 

Unclassified 



21- No. ol Poges 22. Price 

219 



Form DOT F 1700.7 (8-72) 



Reproduction of completed poor outliorizcd 



ACKNOWLEDGEMENT 

The authors wish to acknowledge the help of Mr. C. John MacGowan and Mr. 
Harry Lum of the Federal Highway Administration for providing the guidance 
necessary for the successful completion of this UTCS Second Generation 
FORTRAN Software Support Project. 



11 



TABLE OF CONTENTS 

Section Page 

2.6 ROUTINE LISTINGS 1 

2. 6. 1 Routine A 2 

2.6.2 Subroutine A5 10 

2.6.3 Subroutine CHECK (A, B) 11 

2.6.4 Subroutine CRTOUT 12 

2.6.5 Routine Al 13 

2.6.6 Subroutine BUFFERIN/ OUT 15 

2.6.7 Subroutine PKBL2 16 

2.6.8 Subroutine UPBL2 17 

2.6.9 Subroutine UPKMC 18 
2.6. 10 Routine B 19 
2.6. 11 Routine C 21 
2.6. 12 Routine E 22 
2.6. 13 Routine F 25 
2. 6. 14 Routine H 26 

2.6.15 Subroutine CAL1 5 29 

2.6.16 Subroutine CALRL 30 

2.6.17 Subroutine DECON 31 

2.6.18 Subroutine El SRT 32 

2.6.19 Subroutine LKDAT 33 

2.6.20 Subroutine MHEAD 37 

2.6.21 Subroutine OUTAP 38 

2.6.22 Subroutine OUT2G 39 

2.6.23 Subroutine PRNTF 40 



in 



TABLE OF CONTENTS (Continued) 

Section Page 

2.6.24 Subroutine SB YTC 41 

2.6.25 Subroutine STAT 42 

2.6.26 Subroutine STMSG 47 

2.6.27 Subroutine TIME H 48 

2.6.28 Subroutine TSTAP 49 

2.6.29 Subroutine TSTLP 50 
2. 6.30 Routine I 51 
2.6.31 Subroutine PRPRED 56 
2. 6. 32 Routine J 58 

2.6.33 Subroutine BCDTH 60 

2.6.34 Subroutine CDL 61 

2.6.35 Subroutine CLS 62 

2.6.36 Subrouting SDL 63 

2.6.37 Subroutine TCSLP 64 
2.6. 38 Routine K 65 

2.6.39 Subroutine CIC 73 

2.6.40 Subroutine CNVT 74 

2.6.41 Subroutine CRLF 76 

2.6.42 Subroutine DCMAL 77 

2.6.43 Subroutine DISIN 78 

2.6.44 Subroutine DISNM 79 

2.6.45 Subroutine GREEN 80 

2.6.46 Subroutine KFTU 81 

2.6.47 Subroutine TODAY 83 



IV 



TABLE OF CONTENTS (Continued) 



Section 



Page 



2.6.48 Subroutine TRIG 84 

2.6.49 Subroutine SCODE 85 

2.6.50 Subroutine SETCR 86 

2.6.51 Routine M 87 

2.6.52 Subroutine HFMT 94 

2.6.53 Subroutine KFMT 95 

2.6.54 Subroutine MSUB 97 

2.6.55 Subroutine MSUB2 105 

2.6.56 Subroutine SRC FT 106 
2.6. 57 Routine O 107 

2.6.58 Subroutine PC KO 108 

2.6.59 Subroutine UN PO 109 

2.6.60 Routine P 110 

2.6.61 Subroutine PCKP1 112 

2.6.62 Subroutine UN PP1 113 

2.6.63 Subroutine UN PP2 114 

2.6.64 Routine Q 115 

2.6.65 Subroutine Ql 116 

2.6.66 Subroutine CALOP 117 

2.6.67 Subroutine MOVER 118 

2.6.68 Routine R 119 

2.6.69 Routine S 120 

2.6.70 Subroutine MBYTS 122 

2.6.71 Subroutine UN PS 123 



TABLE OF CONTENTS (Continued) 

Section Page 

2.6. 72 Routine T 124 

2.6.73 • Subroutine PCKT 127 

2.6.74 Subroutine UN PT 128 
2.6. 75 Routine U 129 
2. 6. 76 Routine V 130 

2.6.77 Subroutine GDSUB 133 

2.6.78 Subroutine PSUB2 134 

2.6.79 Subroutine UPKV 135 

2.6.80 Routine W 136 

2.6.81 Subroutine INTRP 139 

2.6.82 Subroutine PATGENT 140 

2.6.83 Subroutine SMINT 144 

2.6.84 Subroutine WC ODE 145 

2.6.85 Subroutine WSUB 146 

2.6.86 Routine X 147 

2.6.87 Routine Y 149 

2.6.88 Routine MACRO 171 

2.6.89 Subroutine FMODE 172 

2.6.90 Subroutine OUTTBF 173 

2.6.91 Routine RTN 5 174 

2.6.92 Subroutine TRFLG 176 

2.6.93 Routine PREDICT 177 

2.6.94 Subroutine LDMOE5 179 

2.6.95 Routine RTSND 180 



VI 



TABLE OF CONTENTS (Continued) 

Section Page 

2.6.96 Subroutine IRTN 184 

2.6.97 Subroutine LPHASV 185 

2.6.98 Subroutine SMSCYL 186 

2.6.99 Routine LSTSQS 187 

2.6.100 Subroutine CORRECT 192 

2.6.101 Subroutine LINKD 193 

2.6.102 Subroutine LLGTHF 194 

2.6.103 Subroutine LOADAT 195 

2.6.104 Subroutine SRC H 197 

2.6.105 Routine INT FC 198 

2.6.106 Subroutine GE TINT 200 

2.6.107 Subroutine MAC A 201 

2.6.108 Subroutine PERI05 202 

2.6.109 Subroutine PUTEOFF 203 

2.6.110 Routine TRN PAR 204 

2.6.111 Subroutine GETBI 206 

2.6.112 Subroutine GETBY 206 

2.6.113 Subroutine HALF 206 

2.6.114 Subroutine PKBIT 206 

2.6.115 Subroutine PKBYT 210 

2.6.116 Subroutine PKHW 210 

2.6.117 Subroutine PTBI 206 

2.6.118 Subroutine PTBY 206 

2.6.119 Subroutine PTHLF 206 



Vll 



TABLE OF CONTENTS (Concluded) 

Section Page 

2.6.1*20 Subroutine UNBIT 206 

2.6.121 Subroutine UPBYT 210 

2.6.122 Subroutine UPHW 210 

2.6.123 Subroutine FMTNUM 211 

2.6.124 Subroutine IN TRNUM 211 



vm 



2.6 ROUTINE LISTINGS 



RBUT INE I &TNA 



2.6. 1 ROUTINE A 



RTNA 
TITlE '•••• RBUTINE A LEVEL l FXEC ••••' 
PRBCEOURE T» ASSEMBLE FUfD MAP ARRAY FIELDS (Mux C8MMAND, 



»m data -.8rds . 

mux Command 
1 STrSBEj *1/B1 ' 
ADDRESS 

MUX C8MMAND 
STR8BE, A2/B2 
* ADDRESS 

W6RC 4N«t • MUX CBMMAND 
WSRD *M ■ STR8BE. A2N/ 
B?N ADDRESS 

N8TE THAT TH E FIRST STRSBc /ADDRESS KBRD ASSEMBLED k!TH EACH 
MAP REFERENCE CBMTAINS A i STR8BE BIT, AND THAT TB ASSURE 
ALTERNATING STR8BE VALUES AN EVEN NUMBER 8F DATA wBRO PAIRS 
MUST BE SPECIFIED IN EACH MAP REFERENCE 



L 


ALTERNATING STmBBE BIT, 


AND SIGNAL 


ADDRESS) 


r 

• 
• 

• 
• 
# 


REFERENCED Bv . 

MAP Al,dl,A2,B?... 


•.A8N,BaN 


GENERAT 
W8RD 1 
ulSRD 2 

W8RD 3 
kBRO 4 



CNAr.E 

PR8C 

DB 

SET 

SET 

DB 

SET 

UN 

SET 

SET 

08 

SET 

FIN 

DATA 

GEN.1, 
FIN 

PEND 

DEF 

DEF 
DEF 
DEF 

CEF 

DE> 

DEF 
DEF 
OEF 
DEF 
DEF 
DEF 
DEF 
DEF 

DEf 

DEF 

DEF 

DEF 

DEF 



NUM(AF)M»1 
AF ( ( I »*1 1 -1 > 



Al*( (A»»»( J-l) )il )««(*"JI 

AF( !••! I 



5 

Bl*( IB»»-(J-D )5l >«(5»J> 

X'002CC26E' 
6»4,5<l6 I51'D'A1,B1,0 



RTNA 
STRTA 
WHSBF,HSARR.APBMl ( CPANeu,HBLDMAP,HB*,AB,C8,MB,Pt» 



W I NF 

ENDACTH 

ENDACTI 

ENDACTL. 
ENDb 
END51 
LEVL5A 
S«TN5 
MlNCTS 
MIN5F 
8PTIME 
8PTIN 

EI3 

Pl«P2.P3«P4 

PLENGTH 

oAl 

CPANIN 



8NE MIN FLAG F8R RTN, 
END.ACTI8N F8R RTN. 



1 
t 

3 

* 
5 

6 
7 
8 

9 

10 
11 
1? 
13 
1<> 
15 
16 
17 
18 
19 
SO 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
• 
M 
42 
43 

44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



DEF 


<MCSP 




I 60 


DEF 


H8LD 




I 61 


DEF 


APB 




I 62 


DEF 


CPAN8UT 




L 63 


DEF 


MARR 




1 64 


DEF 


MARRl 




L 65 


DEF 


KCNT 




I 66 


DEF 


JC8UNT 




I 67 


DEF 


MINCYC15 




L 6B 


DEF 


ucnt 




L 69 


DEF 
DEF 


CPFLG 




I 70 


MMaST.hmaST, Im 


»ST,KMAST,JMaST,wmaSTjEMAST,OMAST 


I 71 


DEF 


LMAST 




72 


DEF 


FMC 




73 


DEF 


MAST 




74 


DEF 


DUMAST 




1 75 


DEF 


FMMARK 




76 


DEF 


MP8KEY 




77 


DEF 


SECFl 




78 


REF 


BPSYSIF 




79 


REF 


MACRB 




80 


REF 


RTNA5 


/ 


81 


REF 


MASK 


. / 


82 


REF 


BARR 


BUS DATA ARRAY 


83 


REF 


BARHBYTE 


BUS DATA ARRAY BYTE C8UMT 


84 


REF 


CRTBUT 




85 


REF 


»SBF 




86 


REF 


RTNA1 


LEVrL 2 EXEC 


I 87 


REF 


FMTBDC 




L 88 


REF 


RTC 




1 89 


REF 


DBP 




I 90 


REF 


NSECTM1 




I 91 


REF 


NUMSCT 




1 '2 


REF 


*HSF 




1 93 


REF 


*SF 




94 



IBPCO 



AFLAG 

BFLAG 

CFCAu 

OFl.AU 

7929BB 

6RDER7 

79290E 

ST*AE4 

P10 



PS j 
PJ1 



REF 

REF 

REF 

REF 

REF 

REF 
REF 
REF 

RE^ 

CMA1E 

PWBC 

GE'J,8»5, 19,8,8, 16 
PENO 



FMSrsF 

FMSECF 

RTNB 

CRTFU 

CRTFL2 

FmFBPS 
SHTFL5 . 

RTNM,RTNJ,RTNK,RTNE 

SAVRU 



AF<1),0«BA(AF<?)i,aF(3)»0»AFI»I 



PSYS 
SYSTEM 
EQU 

EQU 

EQU 

EJU 

3ER EUl 
929 EUi. 
VICE EtiU 

ST*, RIO 
BBU.'.D 

Ibpcq 
ibpcd 

IBPCD 

ibpcd 

I9PCQ 

lopca 
iBPCa 

IBPCO 

let-cu 

ISVCD 

IBPCD 
I8PC0 

IbpCO 

I6PC0 

IBPCO 

IBPCO 

IBPCO 

IBPCJ 

IBPCD 

IBFCO 
IBP.CD 

IBPCO 

I«PCQ 

IBPCO 

IBPCO 

IBPCO 
IBPCD 

IBPCO 

IBPCO 
IBPCO 

IBPCO 

IBFCO 

IBPCO 

I8PCU 

IBPCO 
IBPCO 



1 
UTCSREG 

Xi80' 

X'80' 

Xi80' 

A'OO' 

X'03' 
X'nSOOOOOO' 



79290RDE 
7929BRDE 
7929BR0E 
7929BP.DE 
79298RDE 
79299RDE 
79c9BRDE 
7929BW IE 
79298RDE 
79293R0E 
79299R0E 
7929BR0E 
79293R0E 
79299RDE 
7929BR0E 
7929BW0E 
7929BR0E 
79?9B«0F 
7929BP0E 
79293R0E 

7929BRDER 
79290R0E 
7929BRDE 
7929B»DE 
79298RDE 
79293RDE 

79238R0ER 
79298RDE 
79299RDE 

79299RDER 
79299RQE 
7929BRDE 
79298KCE 
79298«0E 
79299RJE 

79299R0EP 



,8ARR,BFLAG,BARRBYTE 
iPl»AFLAQ,PlBYTE 

MAWR.DFLAG,MaRR8YTE 
8ARR,8FLAS, 8ARRBYTE 
PIiAFLAU.PjByTE 
, HSAKB,CFLAC.,hSARRBYTE 
aPBP^CFLACaPBBYTE 
Cpa\bu.CFLAS,CPABYTE 

• MA«R,DFLA5,1ABPBYTE 
dARR.BFLAG, BaBRBYTE 
■P?,aflaS,P28yTE 

HAHR,DFLAG,MaRR8YTE 

BARR,BFLAG,a*RRflYTE 

Pp.AFLAS.PgBYTE 

MSARR,CFLAt>,HS»RBBYTE 

APB"i,CFlAC),aPBBYTE 

CP«\ru»CFLau,CPABYTE 

MARH,DFIAG,MaRBBYTE 
9a><»,8FLA5 # 8aRR3yTE 
P3,AfLA(j,P33yTE 

'ARWjDFLAGiMARRBVTE 
BARR,BFLAG,BaRPBYTE 
P3< AFL»0,P3BvTE 
hSARP.CFLAChSARKBYTE 
AP8M,,CFLAli, AP98YTE 
CPAN9U,CFUAU,C D »BYTE 

IARW,DFLAG,MARRRYTE 
BARR, BFLAS, BaRRBYTE 
P»«AFLAG,P»ByTE 

IARK,DFLAO,MARRBYTE 
8ARR,BFLAG,BaRRBYTE 
P<h AFLA0,P»8vTE 
HSARR,CFLA(j,hSaRRBYTE 
APBfi,CFLAO,»PBBYTE 
CP«*9U,CFLAa ( CPABYTE 

IARR,0FLA6,«ARRBYTE 



BBunD 8 

PLlSI R£S J 

• VALL£ VAlOE START ADDRESSES 

• BF LrtP 9F ortsF BF [/B C8MMAND LISTS 








OARR, 


p?l 


MARR. 






Oat* 


P?j 










data 


C 








5 


1 
data 
Data 


BARR, 
P?l 

c 


P2, 


HSARR, 


MARR 


1 


Data 

LATA 


BARB, 
P30 


R3, 


MARR, 




1 


1 


'iARR, 


P3< 


HSARB, 


MARK 




DATA 


P31 










DATA 











2 


D a T A 
DAT,. 


UARR, 
PkO 



P». 


MARR. 





bARR, PA, HSARB, MARR. 





UARR, 


Pi' 


"IARR, 




JAIA 
DA*. 
1 


PI J 
'-•ANR, 


Pl« 


HSARR, 


MARR 


DAI A 


Pll 









»B 

»* 
97 
98 

99 

no 

101 
102 
103 

100 
105 
106 
107 
10S 
109 
110 
111 
112 
113 
11* 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12* 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13» 
135 
136 
137 
138 
139 
1*0 
1M 
1*2 
1»3 

1*4 

1»S 
116 
i»7 
108 
149 
150 
151 
152 
153 
15* 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
17r- 
171 
172 
173 
17» 
175 
176 
177 
178 
179 
180 
181 
1«2 
183 





DATA 







BbuM; 


6 


RTNAlCb 


RES 


20 


LEV2TC^ 


RES 


?e> 


LEVJTCa 


RES 


2fc 


LEVbTL^ 


RES 


?•> 


CRTTCfc 


RES 


?b 


(REG 


RES 


A 




B8U'0 


8 


IMPR9 


DAT. 


0» 1 




DATA 


IM60* 




L-ATA.l 


2»2'0. 



INHIBIT 1/9 INTERRUPT 



ISA 
185 
186 
187 
188 
1«9 
190 
191 
192 
193 
194 
195 



CL«1 


DATA 


0.0. INTER* 


3 




m 


CLKXPS3 


XPSU.3 


CL<1 






197 


INTXPSC 


xpsu»o 


INTPRtj 






198 


• C8N\ 


:CT JIRECTLY TB CBuMTrR.y INTERRUPT 




199 


ARMSA 


GEN. 8.2* 


*»X'5A' 






200 




GEN.8,2* 


X'CS'.O 






201 




D»TA 


CL<XP3D 






202 




MT„»._ 


CL8CK 






233 


• CONN 


;CT 3IRECTL 


v TB INT_RPR9CESS81 INTERRUPT 




20* 


ARMfe.. 


SEm.S.Zh 


«»X'6'/ 






205 




GEi4,8»2<. 


X'88',0 






206 




C*Ta 


I -TXPSD 






207 


ARM 6 g 


GE,N,8,2t 


t.X'62 1 






238 




GEn,2.3:, 


2,RTnaTCB 


SAVF 16 REGS 




209 




D»Ta' 


RIKA 






210 


A3-163 


GEN-,. ,2h 


»»X'«3' 






211 




GEn,2»3j 


2.LEV2TCB 


SAVE 16 REGS 




212 




3ATA 


HTNAa 






213 


**<"*» 


QEN.S.2* 


<t» X'6*' 






21* 




GEN,2.3v 


2.LEV3TCB 


SAVE 16 REGS 




215 




DATA 


EI3 






216 


AR16B 


GE-*,8,2» 


%»X'68' 






L 217 




GEN,2»3u 


2.CRTTCB 


SAVF 16 REGS 




218 




DATA 


CLCRT 






I 219 


ARM6S 


GEn,8,2-> 


kt^'fi' 






I 220 




GEn,2»3o 


2,LEV5TCE 






I 221 




DATA 


TANSTP 






222 


OIS»3 


GEN.8,2* 


XM»',C 






223 




GE'J,12«2C 


A"7F8'»3 






22* 


JnT63« 


LPSu»3 


r-TPRe 






I 225 


INTER* 


ST„,Ri 


««FG 


SAVE Rl 




1 226 




Ll»Rl 


252 


RESET CL8CK 




1 227 




ST*,R_ 


CL8C< 


RESET CL8CK 




228 




LIjRl 


X'AOOC 


TRIGGER INT PRSCESSBR 


, AND EXEC 1 


229 




*D*R1 


X'l7o2' 


TRIGGFR INT. 6o» 62 




230 




LW.R1 


• REG 


RESET Rl 




L 231 




LPSD/3 


CLK1 






232 


STRTA 


RES 









233 




CALU5 


ARM63 


C8NNFCT ANR ARM InT. 


fcT 


23k 




CAL1.5 


ARM62 


CONNECT ANR ARM INT. 


62 


235 




CAL1/5 


ARM63 


C8NNFCT ANR ARM InT. 


63 


I 236 




CALl/5 


ARM6» 


C8NNECT ANR AR- INT. 


6« 


237 




CAU1.5 


ARM68 


C8NNECT ANR ARM ]\T, 


68 


238 




CALl/S 


ARM69 


ARM LEVE.L 5 INTERRUPT 




239 




CALK5 


AKM5A 


CBNNECT ANR ARM 1\T. 


5A 


2*0 


• 3 


ISABLL ARM 


WMETIC TRAP 


ADDRESSES 




2M 




CALU8 


DIS»3 






2»2 




CALl.9 


1 






2»3 


RTNA 


RES 









204 




MT»,1 


RTC 


INCREMENT 8EAi.T_lMtCl.8CK_ 




2*5 




LIi^ll 


A'Fi 


IF (. LSBS BF RTC ARE ZER6 


1 


L 2*6 




LS.Rll 


RTC 


DB BNE-hALF SEC8ND L8GIC, 




I 2»7 




bhll 


STRDET 


else start input bf uata 




2«8 




LI.R1C 


1 






2»9 




STV#H1L 


a»SF 


SET BNE.uALF SEC9ND F L AG 


3* 


253 




ST*,RlO 


a-SoF 






251 




LI.«11 


X-1F. 


IF 5 J-SfaS 8F RTC ARE IZtf 


, 


252 




LS.Rll 


RTC 


00 8NE SEC8N3 LOGIC, ELSF 




253 




U.£Z 


STROET 


START INPJT BF CATA 




25* 




Li.mc 


1 






255 




ST„, ,u 


*SF 


SET 9NE SECBND FLAG B . 




1 256 




ST..R1 .- 


-sbf 






257 




STa.RlO 


3ECF1 






258 




Lx.Klc 


MINCT5 






I 259 




AI.RlJ 


-1 






260 




CI.-lu 









261 




Bb 


GIaRNO 






26? 




Ll.iUO 


1 






1 263 




ST.s.RIC 


1IN5F 






L 26k 




ST A/ Rir 


SRT\5 






I 265 




L*.* 


L"AST 






L 266 




ST»,1_ 


DuMAST,? 






1 267 




L»»M1 


8PTI1E 






L 268 




MI.R11 


tz 






I 269 




X»»RU 


Rll 






I 270 


,,b«rn[ 


RES 









1 271 




ST„,R1G 


MINCT5 






I 272 




L"»2 


*"AST 






I 273 




L»»10 


Du»AST»2 






L 270 




CI. 10 









I 275 




6EZ 


sei 






L 276 




Ll.2 


l 






I 277 




ST., 2 


MIN5F 






I 278 


381 


L»«2 


I1AST 






L 279 




L»»13 


DU-iAST.2 






I 280 




BEZ 


Go? 






L 281 




LI. 2 


1 






I 28? 




ST .,2 


HlNSF 






1 283 


i32 


RES 


3 






I 28» 




L*»2 


M>1AST 






1 285 




L'll, 


3U-AST.2 






286 




CI, 10 


1 






1 287 




B\E 


38c 1 






I 288 




STa,1j 


M1N.F 






I 289 


.,921 


RES 
LIi»13 


1 






I 290 
I 291 




MT»»1 


MINCVC15 






I 292 




L '1,1.2 


•*• 32:0300 


3' T8GJI.F CPU 1 BIT |N PANEL 


293 




EBR.R2 


CPAN8UT 


TeJoLF CPU BITS IN CPAN9UT 


29l> 




ST.,,R2 


CPAN8 U T 


an3 but put 




I 295 




L«.-2 


M*AST 


StMEOULE RTN, M EvERV 


1 SEC 


I 296 




LI, 11 


1 






1 297 




ST,., 11 


UUMAST,R2 






L 298 




"T.,-! 


QCNT 


DECREMENT RTN. U C9uS 


T 


299 




BNEZ 


GU3 






1 300 



Ll«Kl 


1 


ST„,Rl 


OumAST,2 


LI. 2 


1 


ST... 2 


MIK5F 


RES 





hT*,-i 


KLNT 



•0/ SHUTD8WN IN RP8GRESS 



TEST IF 1 MINUTE INTF^VAL 



301 
30? 
303 
30* 
305 
306 
307 





HjZ 


OECliMIN 




N8, TEST 15 MIN FlAG 


308 




L*»»2 


K'-'AST 




SCHEDULE RTN. < 


309 




ST.*, 11 


JU1AST.2 






310 




ST.,, 11 


MINSF 






311 




ST., RIO 


CRTFLl 




UPDATE CRT 1 DISPLAY 


312 




ST*, RIO 


C*HL2 




UPDaTF CRT 2 DISPLAY 


313 


JEC1S* 


\ RES 


C 






31* 




("Td.-l 


JCBUNT 




DECREEMNT 6 SECBNJ CBJNTER FBR RT 


315 




B32 


N8EVAL 




NBT 2ER8, CONTINUE 


316 




L-..2 


J"AST 




4 SEC. UP, SCHEDULE RTN. J 


317 




st,.»ii 


DUMAST.2 






JIB 


jetv»u 


RES 









319 




MTh.-l 


SVSTB DECRE 


"ENT STANDBY hAIT C8UNTS 


320 




Lw»2 


NU"SCT 






321 




MT.,-1 


SECSTB-1,2 




322 




BGR»2 


*-l 






323 




MTm-1 


FMC 


DECREME M !■-. "fi.,i'l i;,. r[ . 


32* 




BGi 


STRDET 




IF 15 M]N NBT UP START INPUT 


325 




LI, RIO 









326 




STw/RlO 


MP8KEV 




RTN. H SHBULD 08 ALL PRINTING 


327 




stm.rio 


MINCTC15 






328 




L*»«2 


SHTFLG 




TEST IF SHUTDB^N 


329 




BNEZ 


OS* 






330 




L-/H.2 


HMAST 




GET RTNH BFFSET IN M»ST TABLE 


331 




Ll.ll 


1 






332 




ST..U 


DuMAST,2 






333 




LI,; 


1 






330 




ST., 2 


m!n5F 






335 


as» 


RES 









336 




U.«10 


900 


RESET I'.. 


337 




ST-.Klo 


ffC 




( 900 • 15MIN. • 60SEC/MIN. ) 


338 




II.RIO 


1 






339 




ST.. RIO 


FMSVSF 




SET FIFTEEN MINUTE SYSTEM FLAG 8N 


3*0 




ST., Rio 


FMSEC> 




SET FIFTEEN MINUTE SECTION FLAG 8N 


1 341 




ST.. RIO 


FMMAR. 






3*2 




A..R10 


FMTBDC 


INCREMENT 15 MIN. TIME 8F DAY CBUNTFR 


3»3 




CI, RIO 


95 






3»» 




BLE 


• *2 






I 3*5 




L1.R10 









306 




ST. /RIO 


FMT80C 






I 3*7 


STRQET 


RES 


- 


STAR 


T INPUT 8F DATA 


L 3»8 




MT.,1S 


DBP 


DFCR 


EMENT DETECTBR BUFFER POINTED 


3«9 




BSE 


F|NDL 


DBP 


• -1 


I 350 




LI.RU 


3 






1 351 




STw.Rll 


DBP 




DBP • 3 


I 352 


FINBL 


RES 









1 353 




L..R1 


DBP ' 




START1N& ADDRESS BF 


I 35* 




SLS/R1 


1 




1/8 CBMMAND LIST • 


I 355 




A*,Ri 


khSF 




2«DBP ♦ WHSF «••• INDICE 


L 356 




SLS,R1 


1 






I 357 




L*,RO 


PLIST.R1 






I 358 




L*»R11 


«HSF 






I 359 




Ml.kll 


6 






L 360 




A..R11 


STWAE* 






L 361 




Ata.RH 


RO 




SET UP T8 ST9RE IN MARR 


L 362 




L..R10 


HBLDMAP 






I 363 




AI.R10 


20 






L 360 




CIiRlO 


LASTMAP 




TEST IF END 8F BUFFER 


L 365 




BL 


*»2 






L 366 




LI. MO 


MARK 




RESET TB BUFFER START 


L 367 




ST.»R10 


HBLDMAP 






L 368 




SLS.R10 


2 






L 369 




AWiKlU 


•0RDER7929 






370 




EXu 


«U 




PERFBRM ST8RE MARR 


371 




SLS.RC 


.1 






372 




TIb.O 


7929^EVICE 




TEST INPuT 


373 




BC^.12 


oesiB 




HALT INPUT 


37* 




H1B.0 


7929jEvICE 




IF BUSY, ETC- 


375 


UBSIB 


R£b 









376 




S 1 3 < 


79290EVICE 






377 


sbrtne, 


RES 









378 




BA,_«R0 


RTNfl 


OB DETECTBs DATA INTERPRET AT IBS 


379 


• 






(RTN 


Bl AND e^CE PER VEHICLE (RTN C) I 


3*0 




Lw.RlO 


»HSF 




ChEC< IF 


381 




CI, RIO 


Z 






382 




CI,H10 







HALF SEC. 


383 




BE 


ABVEK 




FLAG SET 


38* 




LI, RIO 


3 






385 




ST.,R1;. 


*hSf 




RESET (.0) HALF SEC FLAG 


386 




L«««io 


LEVL5A 






387 




BNE* 


ABVERl 






388 


A6VEKJ 


RES 









389 




LKiRlO 


M1N5F 






390 




'ClM»(iO 









391 




BE 


ABVERl 






392 


ABVEH3 


RES 









393 




LI»R10 


XM8»0' 






39l> 




*D»1J 


X'l702' 






395 




B 


ABVER 






396 


ABVERl 


RES 









397 


• 










398 




LI, 10 


x'laoo 1 




TRIGGER LEVELS 2 AND 3 


399 




*D,10 


X'1702' 




TRIGGER LEVELS 2 ANI? 3 


100 


ABVER 


RES 


C 






• 01 




S»e»,9 


1 






002 





PAGE 




EVJACTH 


RES 


3 




L».*2 


h"ast 




B 


ENDACT 


E.NJACTI 


RES 







L*«R2 


IKAST 




b 


ENDACT 


EMJACTk 


RES 


C 




L«.r«2 


W^AST 


ENlMCT 


RES 
LI. 10 


9 
1 




STv.,10 


DUMAST.2 




ST., 10 


MIN5F 




B 


•mi 




REtE«E 


<CE' 



SET RTNH 8FFSET I". MAST TABLE 



SET RTNw 8FFSET ! \ 1AST TABLE 



I/B c'lD ACTlBN 



R&M REF, 



E»' ENJaCTh W9UL0 BE THE END.ACTI9N ADDRESS APPEARING IN 
The Se^ICE USER'S FPT. RETURN TB C» M PLETE THE 1/9 INTERRUPT 
kF.S°t)NSE HANDLING TASK IS VIA REGISTER 11. 



Mil 

PAjE 



El J RES 

L68PEI3A RES 

LI. 2 



END. ACTION IS PERFUMED *»ITH THf 1/6 INTERRUPT HIGH 
AS PART 6F THf l/B INTfRRUPT RESP8NSE TASK. 



EXTERNAL INTERRUPT 3 L8GIC 



• 03 

• 3* 

• 35 

• 36 

• 37 
»08 

• 39 
*10 
♦11 

• 12 
"13 
*1» 

• 15 

• 16 
*17 
»18 
"19 
•20 
•21 

• 2? 

• 23 

• ?• 

• 25 

• 26 

• 27 

• 28 

• 29 

• 30 
♦31 



LEV2NS 

SAV«l6 



RE 
L* 

CI. 

BNE 
L« 
LI 
ST 
6 

SIR 
S 

LC 
ST 
L« 
LI 
Ba 
LC 
LM 
B 

RE 
Ca 

RES 

Lw 

LI 

BAL 

CAL 
LI 
L* 
BA 
CA 

RE 
L»» 

CI 
B'. 
LI 
ST» 
LI 

L'« 
BA 
RE 

CA 

RE 



10 

,10 
.13 
-»13 

.Kg 

1 

M»0 
RO 
Rl* 

L.R15 

I 



S 
Ll.9 

K3 

hl» 

.R15 

1.9 

»R1» 

,RQ 

L#S15 

Ll.9 

S 

K13 

.RIO 

£ 
RIO 
RIO 
Rl* 
R3 

L <R15 

S 

ul.9 

S 



DU"IA3T»».2 
1 
*SERV 

'■'AST.*. 2 



DU1AST««,2 

F9RC 
L89PEI3B 

EXITEI3 



SAVR16 

SAVRO 



•RIO 



SAVR16 

LB8PEI3A 



1 


SAVRO 


RTNA5 
1 



SAVRo 

CRT8UT 

1 


SECF1 

1 

LEV2N6 

SELF1 
3 

SAVRC 
RTNA1 

1 
16 



KEEP GBING 
ALL ACTIVITY 9FF AT LE»ST B\|CE THRU 



START SCAN FR8M HIGHEST PRIORITY 



P1EMD 
oinrlir 

PLtN-JT- 



iICLE DETECT8R 
BBuNO 8 

RES 

G£n»20»*»*»* 
SE\«20« , «*«» 
GEN»20.*»«»* 
GE <»20.*«*»» 
GEk»20.»«*«» 
GE*»ao«*«*»* 
SEN/BO. *»»»* 
UE'wSO.*.*.* 
GE\»20.».*.* 
GEn>20.*<»«4 
GEn«20.*»»»* 
GE.\»20.».»»« 
GE'n.20'»'*'« 
GE!>i»20.».*»* 
GEn.20.*.*.* 
GEn.20.».*.» 
GEN.20.».*#« 
GE J. 20. •<•»•» 
GEN.20. •'•»•« 
E3o « 

Eju •• 



INPUT ARRAY 1 



32 
32 
32 
32 
32 
3? 
32 
1? 
32 
32 
32 
32 
32 
32 
32 
32 

.32 

32 

32 



»- 



(».P1 
Pi 



Xi HOC • 
X'SOCi 
X'HOCl 
X'80C 

xmoo 

X'SOCI 
XiHOCi 
X'BOC 
XiHOCi 
XiHOC 
X'80C' 
X'HOC 
X'80C 
X'HOC 
X'SOC' 
X'BOC • 
XiHOCi 
l'80C'»Xi» 
CSOCX'S 

) 



X'l 
X'O 
X'l 
X'O 
X'l 
X'O 
x'l 
X'O 
Xll 

x'o 

X'l 

x'O 

X'l 
X f 
X'l 

X'2 
xi3'.» 

.X'O' . 
.X'O', 



»X'F 
.X'F 
.X'F 



.X'F 
.X'F 
.XiF 
.XiF 
.XiF 
.XiF 
.X'F 



.XIF 



.XiFFFFFFFF 
.AiFFFFFFFF 
.XiFFFFFFFF 
.XiFFFFFFFF 
.XiFFFFFFFF 
.X'FFFFFFFF 
.XiFFFFFFFF 
.XiFFFFFFFF 
.X'FFFFFFFF 
.XiFFFFFFFF 
.XiFFFFFFFF 
.XiFFFFFFFF 
.XIFFFFFFFF 
.X'FFFFFFFF 
.XIFFFFFFFF 
.X'FFFFFFFF 
.XiFFFFFFFF 

FFFFFFFFi 

FFFFFFFFi 



'ICLE 0ETELT8N 
U9i,\D 8 

RES 



INPUT ARRAY p 



•32 

• 33 

• 3» 
•35 

• 36 

• 37 

• 38 
•39 

• •0 
»*1 

• •2 

• ♦3 

• »• 

• »S 

• •6 

• •7 

• •8 

• »9 

• 50 

• 51 

• 52 

• 53 

• 5k 

• 55 

• 56 

• 57 

• 58 

• 59 

• 60 

• 61 
♦62 

• 63 

• 6» 

• 65 

• 66 

• 67 

• 68 

• 69 

• 70 

• 71 

• 72 
♦73 
*7» 

• 75 

• 76 

• 77 

• 78 

• 79 

• 80 

• 81 

• 82 

• 83 

• 8» 

• 85 

• 86 

• 87 

• 88 

• 89 

• 90 

• 91 

• 9? 

• 93 

• 9* 

• 95 

• 96 

• 97 

• 98 

• 99 
530 
501 
50? 
303 
SO* 





GEN»2o»4, 4.4.32 




Xt80C" 




GEN.20'4. 4.4.32 




X'BOC 




Of. .20.4.4.4.32 




X'BOC 




GE\.20»4.4»4,32 




X'BOC 




GEIW20.4.4.4.32 




X'BOC 




GEN.20.4.4.4.32 




X'BOC 




GEw20»4.4.4.32 




X'80C 




GE\»20«4. 4.4.32 




X'BOC 




GE*<. 20.4. 4.4.32 




X'BOC 1 




GE;„.20»4,4.4.32 




X'SOC 




GE .20«4. 4.4.32 




X'BOr' 




GEN.2'J'4.4.4»32 




X'BOC 




GEw20'4.4,4,32 




X'BOC 




GFs>20>4.4.4«32 




X'BOC 




GE«<20.4,4.4»32 




X'BOC 




GEv.20.4.4.4.32 




X'BOC 




GEtw20.4,4,4»32 




X'BOC 




GEn»2j»4.4,4,32 


X 


aoc«xi» 




GE'g.20,4,4,4,32 


X 


80C'«X'S 


P2EN0 


Eju • 






PjBYTr 

• 


Eau 4.H-P2 




• V t 


-lICLE OETEtTBK INPUT 


ARRAY 3 




BBuMJ a 






Pi 


RES 








GE;.»20,4,4.4.32 




X'BOC 




GEv.20.4.4.4.32 




X'BOC 




GE w20»4,4.4.32 




X'BOC 




GE *»20«4»4»4«32 




X'BOC 




GEn»20<'*'4»4.32 




X'BOC 




GEu»2C»4,4.4»32 




X'BOC 




GFs. 20.4. 4, 4.32 




X'BOC 




GEn.20»4i4.4.32 




X'BOC 




Gt\«2Q. 4, 4.4.32 




X'80C 




GE-., 20.4, 4, 4.32 




X'BOC 




GF. .,20.4,4.4.32 




X'SCC 




GEr,.2U.4,4.4»32 




X'BOC* 




GE ,»20«4. 4.4.32 




X'BOC 




GE .20.4.4.4.32 




X'BOC' 




GE-., 20.4. 4.4. 32 




X'BCC 




Gls.?0«».4.4»32 




X'BOC 




GE >.20>4.4...,3S 




X'BOC 




GE ,, 20. 4,4,4, J2 


X 


80C«X'» 




GE',,20, ««.,», 32 


» 


80C»X'5 


PjEN*/ 


Eiu » 






PjOYTc 


Ei„ 4.<».F 


3 





X'l'/X'T 


,X'F 


.X'FFFFFFFFl 


x'o'/x'S 


,X'F 


.X'FFFFFFFF' 


X'l'.x'f 


.X'F 


.X'FFFFFFFF' 


x'0'»x'° 


,X'F 


.X'FFFFFFFFl 


X'l'»x'9 


»X'F 


.X'FFFFFFFFl 


X'O'.X'A 


.X'F 


.X'FFFFFFFFl 


X'1'»X'» 


.X'F 


.X'FFFFFFFFl 


X'O'/x'B 


.X'F 


.XiFFFFFFFFi 


X'1'»X'9 


.X'F 


.XiFFFFFFFFi 


X'O'.x'C 


.X'F 


.X'FFFFFFFFl 


x'l'.x'C 


.X'F 


.X'FFFFFFFF' 


X'O'JX'D 


.X'F 


.X'FFFFFFFFl 


X'l'.X'D 


.X'F 


.XiFFFFFFFFi 


X'O'/X'E 


.X'F 


.X'FFFFFFFF' 


X'l'.X'E 


.X'F 


.X'FFFFFFFF' 


x'2'.x'C 


.X'F 


.X'FFFFFFFFl 


X'3'»X'0 


• X'F 


.XiFFFFFFFFi 


«X'0' ,X'Fi, X'FFFFFFFF' 


.X'O'.X'F'.X'FFFFFFFF' 



,X'F'. X'FFFFFFFFl 
iX'F', X'FFFFFFFF' 
'FFFFFFFF' 
'FFFFFFFFi 
FFFFFFFF' 
■FFFFFFFFi 
'FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFf FFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
FFFFFFFFi 
.XiFFFFFFFFi 
'.XiFFFFFFFFi 



,X'f 
X'F 



it-IICLt 0EHLT8R INPUT ARRAY % 

bV-Au i 



905 
506 
507 
508 
509 
510 
511 
512 
513 
614 
515 
516 
517 
518 
519 
520 
521 
522 
523 
624 
525 
526 
b?7 
52! 
529 
530 
531 
532 
533 
534 
535 
536 
537 
638 
539 
540 
5»1 
5»2 
5*3 
544 
545 
506 
547 
5k8 
549 
550 
551 
562 
653 
554 
555 



P4fcNU 
P4BYTC 
dL*29 

SYSTB 

SEtSTB 

BL*2» 



• PAN* 

PI» 

CP*NlN 



RaDI 



«E5 

BE\.20»»»».4 
GE vi20i <•«*«» 
GE «<iO. *'.*»» 
GE -..20.4.4.4 
GE'.»20<4«4»4 
GEN. 20.*. I.* 
GEN. 20. 4.4.4 
3E\.2G.4.4,4 
6£n»20»»»««» 
SE\»20»»»<M4 
GEv»20»4,4.4 
SEs»20«*.4»*, 
GE".,20«4,4«4 
GEn»20«4,4»4 
GEn,20»*»*»* 
GEn»20<4.4.4 
GEN.20.4.4,4 
GEn.20.4,4,4, 
GEn,2u, 4,4,4, 
EQb • 
E3u »• 
DSECT 
BBUvO 4 
UATA 
DATA 0. 
OSECT 
BBuND 
PES 
*ASE 3RELN RET 
RES 
GEN«20.4,4»4 
GEm, 20,4. 4.4 
GEv,20,4,4,4 
GE ...20.*.*.* 
GEN, 20,4,4, 4, 
GEn, 20,4,4, 4, 
GEN, 20.4,4, », 
L INPUT DATA 
RES 
EOu PI 
GEN. 20,4,4,4 
GEN, 20.4. »»4 
GEn»20.4»4«* 
e.CBNTRBLLEO 
RES 
GEn, 20.4.4, 4. 
SIGNAL BUTPU 
RES 
GEn»20»4»4»4 
GEN.20.4,4,4 



'32 
.32 
• 32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

.32 

32 

32 



X 
'80C 
•80C 



8 



BOC 
8CC 

BCC 

»cc 

80C 

b:c 
»oc 

BOC 

soc 

80C 

BOC 

BOC 

BOC 

BOC 

BOC 

BOC 

»X>» 

»xis 



a'FFFFFFFFi 
X'FFFFFFFF' 
X'FFFFFFFF' 
X'FFFFFFFFl 
XiFFFFFFFFi 
XiFFFFFFFFi 
XiFFFFFFFFi 
XiFFFFFFFFi 
XiFFFFFFFFi 
X'FFFFFFFFl 
X'FFFFFFFF' 
XiFFFFFFFFi 
XiFFFFFFFFi 
X'FFFFFFFFl 
XiFFFFFFFFi 
XiFFFFFFFFi 
XiFFFFFFFFi 

.XiFFFFFFFFi 

.X'FFFFFFFF' 



HALF.SECBND ARRAY 



32 
.32 
.32 
.32 
32 
32 
32 
ARRAY 



X'80C'< 

X'BOC' 

X'BOC' 

X'80C 

•80C.XI5' 

•80C.X'* 1 

•80C'.xi5' 



X'2'. 
X'3'. 
X'2', 
X'3'. 
»X'2' 
.X'3' 
.X'3' 



'1 '.X'F', XiFFFFFFFFi 
•li/X'F'. X'FFFFFFFFl 
i2'»X'Fi, XiFFFFFFFFi 
•2*. X'Fi, XiFFFFFFFFi 
X'F', X'FFFFFFFF' 
X'F', XiFFFFFFFFi 
X'F', X'FFFFFFFF' 



**1 

,32 X'BOC, 
,32 X'SOC 
.32 X'BOC. 

M8NIT8R SIGNAL 



X'2 '.X'3', X'F '.X'FFFFFFFF l 
X'3'«x'3'.X'F',X' FFFFFFFF ' 
X'2 ', X'*', X'F i, X'FFFFFFFF i 

ARRAY 



32 X'SOC' 
T ARRAY 



X'3',x' 



.X'F'.X'FFFFOOOO' 



.32 
,32 



X'OOC, 

x'aoc, 



XI2'.X'7',X'F',0 
X'2',X'8',X'F',0 



556 
557 
558 
559 
560 
561 
562 
5*3 
56k 
666 
566 
567 
568 
569 
57fl 
571 
572 
573 
67» 
575 
576 
577 
578 
579 
580 
581 
582 
5"3 
584 
585 
586 
587 
588 
589 
590 
591 
592 
693 
59* 
595 
596 
597 
»98 
599 
600 
601 
602 
603 
604 
605 
606) 



nSARRBV 
• AD 

APBM1 



«N 

SEN 
GENj 

GEn, 

gen, 

TE EQU 
vance 
RES 
GEN 
SEN 
GEN 



20.* 

20/4, 

20,4, 

PULSE 

20/* 
20 

.•20 



,4,4.32 
,4,4,32 
.4.4,32 



CPANUL 
QPAMOLT 



CPAUY1 J 

PHI 

<M(.SP 

mBLD 
4PS 



GEN 
GEN. 
GEN 
GE . 

EQ 
g»L 8; 

RES 

EQu 
DAT* 

DATA 
EiL 

EQu 
EQu 

EOu 
EUu 
E'Ju 



.20,* 
20.4, 
20.4. 
20.4. 

TPUT 



.4.4.32 X'00C'«X'2'>x'9'.X'F'.O 

,4,4,35 X'OOCi/X'J'nHliK'F'iO 
4. 4, 32 X i OOC '.X.4'»X'5',X'Fi,X'0' 
4,4,32 x'OOC'.x.t'jX't'.X'Fi.x'o 1 
4,4,32 x>00C'»X'4',x'7',x'F",X'O' 
♦•(••HSARR) 
8UTPUT ARRAY 


X'30C*»X'2'»x'Sl.X'FI,0 
X'00C'»X'2',x'e'.X'Fi.0 

xigoC'X'^'.x'O'.x'FifO 

,4,4,32 x'00e'.X'2',x'E'.X'F',0 

4,4,32 x'00C'.x<4'»X'Ai , x'F'»x'0' 

4,4,32 x'OOCX^'.x'B'.X'Fi.x'O' 

4.4, 32 x'OOC'»Xi»'< x«C',X'Fi,x'0' 

".•(».aps«i i 

CAT* ARRAY 



CPANBOl 
X'OO0jC25C' 

x'020j0030' 

»<((>CPANeu) 

AGH«i 
PlAtl 

RCM*1 

«P61i«i 



LABEL USED BY ST 
LABEL USED 8 y R TN A 



LABEL USED BY RTNS. 
LABEL USED BY RTNS. 



P,R,T,V,A, 
P.T 



».AP SIGNAL 8UTPUT ARRAY 
B8UN0 6 
■E3u » 
COMMUNICATIONS AND [NTERSECTIBN SWITCHES 



MAP 



01,02.00,02 



LEGEND DISPLAY 



C9»Oj«10.0G.11.00il2«On 



;i.oo«c2»oo«o3,oo»o»»oo 



05,00 06,00,37, 00/08.00 



13,00,14,00 



TMREShBLn DIGITS 

MAP 33«01»02'01»01«0l'00«01 

HAP v 7.01«06>Cl'05.3l.3<t«01 

MAP 11»01>10»01.09.01'08.01 

HAP 15«01.1<>»C1.13,31.12.01 



ENABLE/INHIBIT 

COMMUNICATIONS 
ENABLE/DISABLE 

INTERSECTION SIGNALS 



1 (CONTROLLER STATUS) 

2 (CIC STATUS) 

3 (BPS C8NTR8LLER STATUS) 

4 (CBNTR8LLERS FAILED) 

5 OCCUPANCY) 

6 (VOLUME) 

7 (SPEED) 

8 (QUEUE) 

9 (ST9PS) 

10 (DELAY) 

11 (PASSENGER GAIN) 

12 (BUSES HELPED) 

13 (SURV E..UIP FAILED) 

14 (BPS SURV E3UIP FAILED) 



1000S DIGIT (8-4-7-l.BITSi 
100S DIGIT (8.4-2-1 BITS) 
10S DIGIT (8-4-2-1 BITS) 
IS DIGIT (g.».2., BITS) 



AQOfD TO TuhM 9N A PHASE GREEN LETTERS OF MAP 
MAP 15.00. 0.0.0.0.0 
The F8LL8w1\G DUM"Y ENTRIES PR9VIDE F9R EXPA\Sl8N T6 
its C8NTR8LS 

D91 3 
MAP j0»0J.U0»00»00»3C, 00,00 

Cj .T-^lLeR aRROaS (03U A»D E«EN SIGNAL PAIR PER aSDRfSS) 

i* f '.o»o;:«:i«o:>..2.o5.o3«05 • i • 8 



*07 
608 
609 
610 
611 
612 
613 
bit 
61S 
616 
617 
618 
619 
620 
621 
622 
623 
62* 
625 
6?6 
627 
628 
6?9 
630 
631 
63? 
633 
634 
635 
636 
637 
6JP 
639 

6»r 

641 
642 
643 
644 
645 
646 
647 
648 
64 9 
650 
651 
65? 
653 
654 
655 
656 
657 
65S 
659 
660 
661 
66? 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 



MAI- 04»02«04, 05,05,02.06.0? 

1AP .7.02, 08>02»05, 05,39,:? 

MA f j6<05»07.05» J«.05/10<0? 

M4F ll'0?'l?»02»13,u?»l*..3? 

MAP 15,0<?.09,C5< IO.O'saII.OS 

ii«F 1?.05'13*05,00»03»1»«05 

MAP 15«05»G0.G6»C'l.06.02. J6 

MAP GI»03»02.03»"3. 06. 03.03 

MAP 34.06.^4, 03.05. 06»C0'00 . 

MAP 07»06«08»06. 1.9,06. 10*06 

Map 11.06.C5.C3.1?, 06.13.06 

MAP 14.C6»15.06.30>0',«01.07 • 

MAP 02»0'.uC«00.04»37».',5,07 • 

MAP 06,07«07«07.^ ;,03'08»03 

MAP 06,03.09,03 



THfc FOLLOWING DUM-Y ENTRIES PR9V1DF F8R EXPANSI8N TO 
2j2 CONTROLLERS / 



9 ■ 


16 


17 


- ?4 


25 


• 32 


^ 


- 40 


41 


- 48 


49 


- 56 


57 


• 64 


65 


- 72 


73- 


S3 


81 


• 88 


89 


• 96 


97. 


104 


05- 


11? 


11 


• 120 


121 


• 124 



MAP 
D81 

MAP 



OC»00,CO,00 

13 

00,00.00' 00, 39. 00, 00, On 



LINK AR«8»S 1900 AND EVEN PAIR P£R ADDRESS) 

1 



MAP 
MAP 

map 

MAP 



03'17»01'17» 02, 17/09.16 . 1 • 8 

00' I6.01'16.02.16.08.l6 t 9 • 16 

11. 16.03.16.04, 16, 10. U .17-24 

12,16.14,10,05. 16,06.16 . 2S • 32 



680 
681 
68? 
6>i3 
684 
6»5 
686 
687 
688 
689 
690 
691 
69? 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
7ot 



MAP 


13*16 


MAP 


03.17 


MAP 


06.17 


MAP 


07»1? 


MAP 


0*«19 


MAP 


12.19 


MAP 


on»2o 


MAP 


03»2u 


MAP 


06»20 


MAP 


07,2c 


MAP 


0C«21 


MAP 


00.00. 


MAP 


i».2i 


MAP 


03. 22 


map 


09.22 


MAP 


Vl»22 


MAP 


09.23 


MAP 


08.23 


MAP 


10.23 


MAP 


68.18 


MAP 


03*18 


MAP 


05.18 


MAP 


15«1<J 


MAP 


Cl»19 


MAP 


12.23 


MAP 


13.23.1 


MAP 


0*»21.0 


MAP 


10'21 


MAP 


09.21.1 



.07. 16. 15, 16.0*. 17 


33 • 


»0 


.09.17.10.17.05.17 


*1 * 


«8 


. 08. 17. 12, i7» 13, 17 


»9 - 


56 


.11.17.03.19.05.19 


57 • 


6* 


.06.19,07,19,08.19 


65 • 


72 


*11<19»13, 19. 15.19 


73 • 


80 


«Cl<20»32«20.09.2r> 


81 • 


88 


«G8.20»10«20»0*«2o 


89 • 


96 


.05. 20. 13. 20. 12. 2o 


97 • 


10* 


,11. 20. 15, 20.1*. 2c 


105 < 


112 


.01.21.02,21.03.21 


113 


• 120 


07.21.12.21.15.21 


121 


• 128 


.01.22.08,22.02.2? 


129 


• 136 


.IO'22'O*. 22.05.2? 


137 


■ 1** 


.12.22.06,22.07.2? 


1*5 - 


■ 152 


.13.22.1*, 22. 15. 2? 


153 . 


160 


.00.23.02.23.01.23 


161 ' 


168 


•11. 23.03, 23.0*. 23 


169 ■ 


176 


'15. 17. 1*. 17. 00.18 


177 . 


18* 


.01.18.02.18.10.18 


185 • 


192 


»0*»18«09, 18. 11.18 


193 ■ 


200 


*12. 18.1*. IB. 13.18 


201 ' 


208. 


.06*18.07,18.00.19 


209 ' 


216 


.02'19.09.19»10«19 


217 • 


- 22* 


.05.23.06,23.07,23 


225 • 


> 232 


*, 19. 14.23.00. 00 . 


233-2*0 


8.21.00.00.05.21 . 


2*1«2*S 


.06.21.00.22.15.23 


2*9 ■ 256 


1.21.13.21,00.00 . 


257«26* 



THE FeLLSwING DUMMY ENTRIES PR6VIDE F6R EXPANSlBN T8 
512 LINKS 



D81 

MAP 

LIST 

LASTMAP eou 
KASftiYTE ECo 

E".., 



MAKX1 

MSLDlAP 



DATA 

beu-.D 

DATA 

OAT* 
'INCYC.13 DATA 



jC»l^ 



,-SBF 
CLICK 
.'INF 
INCT] 

T AS 
■ib» 

»h 
CU 
ib 

PS 

1AST 



*TNL 
SECFl 

8L"* 



FML 

FMMA^K 

OUMAbT 

lPf<£Y 

CP^J 
MMAST 
jMAST 
K-.AST 
E 1AST 
-,'IAST 
: ,»AST 
J.1AST 
IMAST 

l'iasi 

ul'LbA 

sx r Mb 

Ends; 
:l 'LT 5 
.!*:>* 
SjPtI lc 
rtP! IN 



DATA 
DATA 
DATA 

DATA 

Data 
EUJ 
EDU 
EQu 
EGJ 
tQu 
DATA 
DATA o, 

Data 

RES 

R£S 

DSECT 

PES 

DATA 

DSECT 

DATA 

DATA 
DATA 
DATA 
DATA 

Data 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT- 
DATA 

DATA 
DSECT 
DATA 
DATA 
DATA 
DATA 
DAT* 
DAT« 

Data 
DATA 
END 



31 

00. 00. 00. 00. DO, 00. 00. 00 

1 

»-21 
1».2.<, 

~ARR*1 

-APR 



15 



"1 



260 


60 

ENDACTrt,ENDACTI,ENDACTi. 

mS»RRBYTE/» 

AP6UYT2/* 

CPAbYTE/* 

MARRBYTE/l 

P1BYTE/* 

RTKn,RTNj,RTN*.»GTNE 
, 1 
RTNL 
t 
1 



1152 

2b» 

■3 

900 


0,0,3,0,0.0.0.0.0 
1.2.3,4. 5.6.7, 8. 9 



15SEC CPJNTEH F8* RTNK 



70» 
710 
711 
712 
713 
71* 
715 
716 
717 
718 
719 
720 
721 
722 
723 
72* 
725 
726 
727 
728 
729 
730 
731 
732 
733 
73* 
735 
736 
737 
738 
739 
7*0 
7*1 
7*2 
7*3 
7 44 
7*5 
7*6 
7*7 
7*8 
7»9 
750 
751 
752 
753 
75* 
755 
756 
757 
758 
759 
7*C 
761 
762 
763 
76* 
765 
766 
767 
768 
769 
77 
771 
772 
773 
77* 
775 
776 
777 
778 
779 
780 
781 
782 
783 
78* 
785 
786 
787 
7B8 
789 
790 
791 
792 
793 
791, 
795 
796 
797 



2.6.2 SUBROUTINE A5 



WuflMf. 



le<el 



•n Mr 


LEVEL 5 EXEC 


SJ5fi9jTl;E *TV5 


C^ M !".9\ 


/iL<t^E/ lEvL5A»S ! »T'.5,E - >'C5»E.ND51 


IMEW 


S<?TM5,EA25.t j05l»9HTlM t ,SPTK 


C^fS-l 


/t>L<6 / F-iC , fAH< 


-nAST 


, j-AST , <-AST 


h-iaST 


, a^aST , 'Jh.AST 


.."■AST 


, r,Bj«y , GLNT 


jllY C 


J :-i>)\ AKEAS fT-< l'iIT|ALUATISN RF 


« v "-'9-4 


/HSvjtf*/ IDIMU) 


Ce-'MBr, 


/HSull/ ITI'lE(t) 


cb^mbn 


/JTribP/ I«0j"n,J 


C9 V| KB\ 


/PT\t<V"i/ lPT">tJCt) 


C9"MB\ 


/OLTtlT/ AIJ--I9) 


CB^MSN 


/HSuB?/ JJU (222) 


CB^MK 


/*Sj03/ KDU-12) 


C81M8 J 


/HSu05/ IIO u i"(») 


C9->H9o 


/HSu»6/ JJ3j r '<5> 


C9-r-e>j 


/JSJ»1/ IMa" 


C9" , ~'»1n 


/ISjBl/ <Oj~<3> 


CS -ir<e-. 


/C3 1J/ ^=bPT 



sI^CTSi-I^bf /fWTfE.SPTIN 

. 1ASTOI < 

» E M AST i 

. I -AST » 



C9-i*B\ /SECMV/ ISECT(s) 
INTEOE^ HCAST,«-AST/;iAS'' 
LEVL5A.1 

) C5M1 v^E 
HT . - 

D9 10 I >li : 
SI.] 

if(mast(i*'.).ne.j) 09 t9 is 

; csmti'-jje 

LEVL5A.. 

MIM5F. 
3 iETuR'. 
3 C9'-TI'.jE 

IFIMASI ( . + ») .£i..2) 09 T9 15 

lFlhAST (\*»).Ew.01 09 T9 5 

IF( III .E-.- M 36 T9 (25.35. 

HT . „ 

09 TS (?.» J0»l(.-.50#63)»N 
«!\i Ca l l 



2D 


CALL SL3L8i3 


<5) 


2b 


C9NTI ,i;E 






■ :AST(-v A3T| 


a 




CALL *T'»H 






S9 T* i5 






*IV« C»uL 




30 


CALL SE.3L8J 


Ift) 


35 


L9NTIN..E 






"iAST(/r AST) 


s 




CALL ">T ■- 






09 TO [5 






FiT^O Ca l l 




tO 


CALL 3L'jl9^ 


17) 


»b 


C3*Tr-li.E 






c ASTI J, AST) 


• 




CALL ^T^J 






09 T9 1% 






SIM CAi.L 





63 


1 


63 


? 


63 


3 


63 


k 


63 


5 


63 


6 


63 


7 


63 


a 


63 


9 


63 


1: 


63 


u 


63 


12 


63 


13 


63 


Ik 


63 


15 


63 


16 


63 


17 


63 


18 


63 


19 


63 


22 


63 


21 


63 


5? 


63 


23 


63 


?A 


63 


2? 


63 


?6 


63 


*7 


63 


?? 


63 


29 


63 


3: 


63 


31 


63 


3? 


63 


33 


63 


9* 


63 


3? 


63 


■>b 


63 


37 


63 


3 a 


63 


3 9 


63 


■*" 


63 


»1 


43 


-2 


63 


bl 


63 


»A 


63 


k5 


63 


16 


63 


»7 


63 


"8 


63 


X? 


63 


50 


63 


51 


63 


^2 


63 


53 


63 


i* 


63 


55 


63 


56 


63 


57 


6j 


58 


63 


59 



50 CALL SLSL9C(S) 
55 CB^TI^E 

hASTI I< AST ) • 

CALL rtTNI 

09 T9 15 
"ACB L?90 CALL 
60 C9MTI-.uE 

CALL MaC"?B 

hASTIL' AST )• i 

I*T.O 

0? T9 b 

EVJ 



6 3 
63 
63 
43 
63 
63 
63 
63 
63 
63 
63 
63 



10 



2.6.3 SUBROUTINE CHECK (A, B) 



R8UTINEI CHECK 



CHEC« 




DE> 


CHECK* 


DELETt F6R 


DEBUS RTNK 


Ref 


STATE 


RES 


C 


ST., 7 


SAV7 


L«#7 


•15 


Lo.lt 


0.7 


AI.7 


-1 


LB, 1* 


STATE/7 


»I«lb 


2 


L*.7 


•15 


ST*»1* 


C»7 


M. 15 


I 


L«.7 


SAV7 


6 


•15 


Data 





ENC 





SAVE R7 

ADDRESS 8F LINE 
VALUE IN LINE 

STATUS BF LINE 

ADDS. 9F CALLER'S STATE 
STATUS TB USER'S STATE 



1 
2 
3 

* 

5 

6 

7 

8 

9 

10 

11 

12 

13 

1» 

15 

16 

17 

18 



11 



2.6.4 SUBROUTIN E CRTOUT 



R9UTINE: CRTSUT 

C • CRTtfuT 

SJBR6JTI.E CRTOUT 

c 

C SUBReuTI^E CRT PR9VIDES The INTERFACE BETWEEN THE CRT 

C FORMATTING RflUTINE (RTNK) AND THE CRT DEVICE 

C 

INTEGER ALLBN, STATS, STATE* CTHS, CRTNMj CRTAi, CRTA2, BVTCT 

INTEGE" CRTB1.CRTB2 
C 

di^ensibm mcrtip) 

CB^MBn MCRT / BYTCT(2) . CRTR2U) , CRTNH , CRTAl « 

• CKTA2 

C91M9N /BLK22/ CRTBl|5l2] , CRT32,5i2| , CRTDl » 

• CRT02 , CRTFl , CHTF2 , FLRFL 
DATA ItLAG/ -1/ 

D* T A AlLSN/ 0/ 

DATA STATS/ 0/ 

DATA h 9 oe / 19/ 

OAtA '.9CHG/263/ 

DATA C"TR2(1), C«TR2(2) / 0. 0/ 

DATA BYTCT(1I» BYTCTI2)/ J< Q/ 

DATA *CRT<1>» NCRTI2) / 2, 1/ 
C 
C FINE INDEX F8R UESIRED CRT DEVICE 

IC-*T ■ CRTn" ♦ 1 
13 CBNTINuE 

IF< IFLAG.GTO) G8 TB 20 

IFLAG ■ IFlAG ♦ 1 

CALL CSET(NLRTIICRT),M8DE»N8CHG) 

CALL CSTART(NCRT( IC«T)<STATS| 

c 

c chec< if device in errbr state 

c 

CALL Cr,ECKl~CRT( I CRT ) , 1, STATE , IBC ) 
IERR ■ 

IF<STATL.E,;'12S>> IERR • 1 
CRTR2I iCRT] • IERR 
2'; CSntInoE 

1ficrtr2i icrt).ne.'j) gb tb »1 

C 

C LINE IS CLEAR, .RITE TB DESIRED CRT 

STATS ■ 

IF( ICRT.E0.1 ) U9 TB 30 

CALL c."ITt(NcRT(Ic«T),C«TBl,ALL9N,BVTcT[IC«Tl,STATS| 
G9 TB hO 
30 CBNTlNuE 

CALL C.RITEINC^TI ICRT|,CRTB2,ALLBN.BYTCT( ICRT), STATS) 

10 CBNTINuE 
C 
C CLE* 1 * C-IT ACTIVE FLAG AND TEST IF BTHER C**T DESIRED 

C 



c 

ICRT . 1 
CR1A1 . „ 



IF( ICRT.EQ.l ) L>8 TB 5C 
C 
C CRT 1 BPERATJBN, SET CRT 1 INACTIvE AND CHECK CRT P 



IFICRTA2.NE-0) G8 TB 10 

G9 TB 60 
C 
C CRT 2 8»fcWAT!9N, SET CRT 7 INACTIVE A\0 CnfCK CRT ? 

S3 C9NTI\ C E 
ICRT . 2 
CRTA2 . ..) 

IF<CRTAl.SE. j) GB TB U 
6; CB^TInuE 
C 

C fi£T,..RN T) NBMTBR 
C 

C CALL EaIT 
RETURN 



»3 


1 


»3 


2 


*3 


3 


»3 


« 


»3 


5 


»3 


6 


»3 


7 


"•3 


8 


*3 


9 


»3 


10 


»3 


11 


»3 


12 


»3 


13 


*3 


1» 


*3 


15 


*3 


16 


»3 


17 


»3 


18 


»3 


19 


»3 


20 


»3 


21 


«3 


22 


»3 


23 


»3 


24 


»3 


25 


»3 


26 


»3 


27 


»3 


28 


»3 


29 


»3 


30 


»3 


31 


»3 


32 


»3 


33 


»3 


at 


♦ 3 


35 


»3 


36 


»3 


37 


»3 


38 


»3 


39 


»3 


"3 


»3 


M 


*3 


«? 


*3 


»3 


»3 


n 


"3 


"5 


■•3 


»6 


»3 


»7 


*3 


*S 


*3 


»9 


*3 


50 


*3 


51 


»3 


52 


*3 


53 


»3 


54 


»3 


55 


»3 


56 


»3 


57 


*3 


58 


»3 


59 


»3 


60 


»3 


»1 


»3 


62 


»3 


63 


"3 


6t 


»3 


65 


»3 


66 


♦ 3 


67 


»3 


68 


13 


69 


»3 


70 


• 3 


71 


»3 


72 


♦ 3 


73 


*3 


7» 


»3 


75 






12 



2.6.5 ROUTINE Al 



RTNA1 

SOBRBUTINE *>TNA1 

CelMB.^ /BLK4/ BUTOOO) 

CB1M8N /BLK6 / FMC 
"PAST i JMAST 

H^AST , wMAST 

S P ACE . MP8KY 

Ca^fON /BLK7 /A8G1 (16) 
<CTC( 17).<3PHI (31 l.STuPF 

C9 M P8N /8LK14/ CLENG 
DUMYl , DUMY2, 

CNTLII372)/ EMFL(5)j KC 
KCSF| l7)» Nmv«1(31 I, SmS 
VWINI(1J3i j |_NKPT|6*) 

CB^hBN /BL<17/ ADVM(8I 
1AC>PI{8) , CMTDRI124) 

W«I(3l) » INTLI(31! 

STBTI(32>, TIMEI(32)< OV 

C91M6N /BL1O8/ C1CTI (8) 
C9NTI,62) * CURe!(31) 

EN(,Fl(3l) , GAA6I(124) 

SLABI(124) , GMABK124) 
SABCIllZ*) i TKMK31I 

C81MBN /BL<19/ CC2I129)/ 
-111(31 I » RA«6C(258) 

TSTRT ( 516) 

IMTEGE* RTC 

C8 >, M8^/8LK28/At>Rili.),PIA( 

1ARB(j»0) / H1AP(2) 

"NC15 , -HS6F 

MINCT , TABI3) 

E'JUIVAi_ENCE (AUTBl.AOVNI ( 
1 (GAII, AGR(2) I 

3PEMSIBN M910K8) 
C8 , 'MB\i/BITl2/B1TAR(6»0) 
DPE^SlBN aJ««I3?Ii 48GI3 
1CICEF(J8)»CICTF(32)»CTB0F 
JH9LDI 32)<IAUVP(32) ( I NT IS ( 
3ST-<TA( j2),T*NSF (32),CICSF 

E';uIVA L E'<CE 
1 | A3VNH,BITAR[ i)),(A8G 
S(AUT9F,BITAH( 9711/ 
1 |CIC6P,8ITAK<129> >/ (CICEF 
1 (CICTF.BITAH(J25))» (CT90F 
-,lC B AB'j,BlTAH(32i ))j IFSTCF 
H(IADvP»BITAK(<H7>)j (INTlS 
5|S- , LCm,sITA«(513II. (STHTA 
6(T«NSF,B1TAK( 6 59) ) 
Ci^'Br. /BYTL2/IC6N,UL2,KL 
INTEGER A0vNH,ABG,»PB,AUT 
lCICTF, L T9CF,CMALF,CPABd,F 
S3T*TA,|R'iSF 

1MEOE™ AM8PN,C9NTB.CNTLN 
1GLABCjG«HBC«LDSET, iCICT.3 
2T<1»V9L«V8T 
INTEGER CLENG, CNTDN,EMAST 
3I«ENSI8N K"CSP(17) 
EQUIVALENCE l«SL2(l),I >, ( 
1 ^L2UJA*5S1PJ_ _ 
IvTEGE- *FF 
3ATA <fF/-l/ 

3ATA Il26S/l/»VSUTC/25C// 
• RSUtlNE N 



, FMARK , 


MASTI9) 


» kmAST > 


EMAST 


1 (3MAST i 


IMAST 


I IMTHK31) , 


INT2I (31 ) 


|N0 L {3J) 




t DTLNG < 


C*LNG 


L(l7)» KCTF(17) 


J 


«I (8). 




» CICBK8) . 


CA9GK8I 


< CNTNM j 


IL2 


» |MT9!(32| / 


KL1 


8<I (69) 




» CT8DK8) , 


STBOI (8) 


» CyO.I(31i . 


ENIN] (496| 


> 3AWTK31) . 


QBWTK311 


i GUABK124) i 


INTDM496I 


.►RK9I (31) 




DFAIL169). D9F(17)< 


l RA><SP(25f>> / 


RTC 



6 ) . RC" ( 2 ) i HSB 1 1 4 ) * APBMi ( 14 I , CPN«U, CPN8T, 
, JCNT , KCNT , 

, CL9CK i rfMINF / 

, M9N8I8I 

21) i (CICEIiCICBI (21 I 

i (H8[_DI»HS9(2) I 



2),aP9(32I,aUT8F(32),C!CBP(3»I, 
(32i,C-lALF(3?).CPA9G(32),FSTCF(12l. 
32),SEMSK(3 ?1 ,SPLCH(32,,STBY0(3p)» 
(32l 

,BITAR( 33)), (AP9 /8ITAR( 651), 

»BITAR(161 I I, (CICSF,BITAR( 1931 I. 
,BlTAH(2S7) ), (CmALFiB1TAR(2S9) ), 
<BITAR(353) i. (H9LD , BI TAR I 385 ) ) . 
.SI TAR (449) l» (SEMSK,BITAR|*81 1 )< 
»BITA«(5»5) )< (STBY0,BITAR(577) )» 

2/lDECR,WSU2(50) 

Bf/BPSIF/BTRK'F.ctCBP.CICEF/ClCSF. 

STCF.GAI/HBlO/SEMSK.SPLCH.STBYOi 

jCYC|.C.EM1NT,GAA8C ) GA«TP,5B < jTPj 

QU » TQRR ( 3v9k,RRR,STBTM,S ABC T,TE«CT, TJMEB, 

<STuPF,ENTFl 

»iSL2(2)< IRloli (WSL2I31.KCTCI I. 



NCYCL/15/ 



C •• TIE PU-P9SE 9F P9UTINE N IS T9 Tflf ALL P9SSIBLE C3NTR9LLER CYCLE 
C •• LEnGT-hs That can be SELECTED F9« B«i. STREET USE. 

ITIME««TC 

CALL gP<«C 
C •• U »W £>T-IY EvE-iY StC9M), SET <CTCI Te Th£ \Of'8ER »F CYCLE LF^GTHS 

<CtcI«i.CYCl 
C •• AT STA*T.UP CB^PUTEO 56 T8 STATEME^T .ILL BRA\CH T9 STATEIE^ 270 

190 G9 T9 (270»200)<U25S 
C •• INCREMENT T"E <TH CYCLE TJMKG CBUNTfR <CTC(«CTCI) 

20U KCTCKCTCI )«<CTC(<CTCI l*IDECR 
C •• IF C8UNT HAS N9T REACHED KCLKCTCI) EXIT FR9n SUBRBUTISE 

IF (KCTCIKCTCI I.NE.KCLIKCTCI ) ) 69 T9 750 
C •• 9TH E R,]SE RESET C9UNTER T6 ZER9 

KCTCUCTCII'O 
'S3 IF (KCTCIKCTCI I.GT.OI 09 T9 ( *70< 202 I , 1 125S 
C •• SET The *Th CYLLE START FLAG 

*CSF(<CTCI)«1 
C •• IF THjs CYCLE LENGTH .AS N9T PREVI9JSLY SY\ChR8\UeO, 
C •• THE C9KRESP9SDIVG FLAG IS KCTF IS SET T8 tBNE'' IFTHr 
C •• TRJE ThE C6WRESP8NDING FLAG | '< KCTF |S RESET T8 tZ£R8 

IF(KMCSP(KCTC1).E0.KCTF(«CTCD) 08 T8 10 

IR10»KCTF(KLTCI I 

IF( IRlO'EQ.O) KCTFiKCTCI ).l 

IF( IRlQ.EQ.l ) KCTF(KCTC!)«0 
C •• SCHEDULE RSUTJ'-E E BY SETT^G RIOHTMBST BIT 1^ MASTER ACTIVITY 



BUT •»•« IS, 
C9\,VERSE IS 



10 
11 
12 
13 

14 

15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
?5 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 

*3 

44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
39 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 



88 

99 

9n 



13 



■)<> 



100 
101 



10 IR10«M*ST(E"»ST)/g , ,, 

MAST<EmASTI»1*IR10 Z ,' 

GO T8 (k70«202).I125S » ,, 

c • decrement kth cycle: ti«e index „ „: 

so? kctci.kCtci-i « 

£ .. IF ANY HaRE CYCLES REPEAT L89P 4 ,. 

If (KCTCl.GTOI GB T9 20C * q, 

C>9 TB 123 

C •• 3E.CRE>1LM START. UP T[ME C9UNTER. NSUTC BY BNE SECBO. NSjTC .AS 
C •• ORIGINALLY SET TB 125 SECHNDs ANfl IS CHECKED HERE E8R C8_,NT"9.N 
C •• T3 ZERB. 

270 NSJTC. -SUTC-IDECR I J Xp 

If (NSUTC.GTO) SB TB 390 , j-, 

C •• 125 SECONDS have ELAPSEO, SB SET STUPF. SET i?5 SEC9N0 S.ITCh » i-i 4 

L •• F9R CBI PUTEO G9 T8 SB THAT R C TURN »I lL BYPASS H\ IT I AL SYjChBBN IZ a , 105 

C •• TIBN PttBTI**. k .,« 

stupf. i j.: 7 

I125S.. „ n , 

C CLEAR PXEDICT1BN STAT FILES „ j 09 

08 20 IDUf»l»9O0 k |tj 

BuT( IDLM).fO » HI 

2: CSNTINlE » n ? 

D9 30 IUNIT'12.17 t n3 

CALL BL-fFERSUTI I UN I T, 1 , 8 JT. 9^0» I 1 , NN | k n» 

23 Iff 1I.NE.2I GB T8 25 k 115 

JO CONTINUE k 116 

08 TB 190 4 117 

C •• CHECK TH£ <TH CYCLE TIMING F L AG ARRAY, KCTF, fBR CYCLF LENGTH « Us 

C •• KCTCI. THIS FLAG IS A >8NE' IF THE CYCLE LENGTH had PREVIBjCLY i, 119 

l •• BEEN BYNChhBNIZED .ITH THE DISTRICT'S FASTER C8NTR8LLER d UlSES k 120 

J90 IFIKCTF (KCTC1 ).EU. j) GB TB 530 it 121 



C •• CALL CYCLE LENGTH CBUNT-OB-N R9UTINE it 122 

08 T8 cOO k 123 

C •• DECREET <CTCI AND CHECK IF AMY MBRe CYCLE LENGTHS. k 12k 

k/0 KC1Ci«*CTCI-l k 125 

If IKCTCLGT.?) G9 T8 390 k 126 

C •• N9 MORE CYCLE LENGTHS. RETURv. T8 Al. k 127 

GB T8 120 k 128 

C •• TEST If RAJI8 INPUT SYNCE PULSE EXISTS FBR THIS CYCLE LENGTH. k 129 

C •• If NBT SET KCTF T9 1 k 130 

53J If IKMC.SPKCTCI l-NE'U) KCTF ( KCTCI ) "1 » 131 

G9 TB k7o k 132 

C •• THIS IS THE ENU BF RTNN k 133 

C •• k 13k 

_ .. .................................................................. k 135 

120 C*LL RTNB * 13* 

C •• If STAxT UP ELAG FNUALS ZeRB RCTURN t8 EXECUTIVE. k 137 

J5'J If (STuPf .NE.OI GB 19 kCO « 138 

RETURN k 139 

( .. .................................................................. k l»o 

Z •• • k 1»1 

C •• THIS IS THE STAsT bF T«E M *IN LBBP B* oTNAl k Ik? 

»0U ICBN.O » 1*3 

C •• 9Ur t R lBOP IS U9NJ; 16 TIDES' lNN t « L68P HANDLES 8 C8NTR8LLFRS k lkk 

C •• FB>? TBTAL 12" C9NTR8LLERS k lk5 

08 830 lL2.1,k " * 1»6 

c •• Call Subroutine ts unpack all bit arrays useL by level ? RT l s « ik7 

CALL uPBL? k lk8 

C •• SWITCH SETTINGS FOR 8 CBmTR8LLE w S aRe RETURNED. 9TH ELE"EMT « lk9 

C •« BF E.ACH ARRAY CbNTAlNS PaCKED DATA f8R THrSE C9NTR9LLERS k 150 

C •• RIuHT jUSTIHEU » 151 

IF lA8cl(2»lL2-1 ).EQ.CA8GI|?.1L2-1) ) GB T9 520 » 152 

IF (H8lDI(2«IL2-1).EQ.O) G9 T8 525 » 153 

CALL RTNP » 15k 

520 IF (STbDI (2»IL2'1) -ECO) GB T8 525 » 155 

CALL RTNR k 156 

b25 CALL RTNT k 157 

CALL RTNV k 158 

IF (S-1SKI (2ML2-1 l.NE.XFF) CALL RTNX » 159 

C •• PICK UF ADvANCE PULSES AND ST8«E IN bUTPUT BuffER » 1*0 

D8 60o 1.1.32 k 161 

APB( I I.UDvPl I ) « 1*2 

C •• CLlAR AUVANCE PULSES. k 163 

IADVP( 11.0 k 16k 

6^0 CONTINUE » 1*5 

L •• CALL SUBRBUTINE T9 PACK ALL HIT ARRAYS USED BY LEVEL s RTNS k 166 

CALL PkBL2 » 1*7 

IC9N»IC0N+38 * 1*8 

43: CONTINUE k 169 

ITlME.RTC-ITIliE * 17? 

RE'URN * 171 

[ND » I'? 



14 



2.6.6 SUBROUTINE BUFFERIN /OUT 



jFF ERI ./9UT 



• • lljFFtRWJJT 

DE> SUFFEKSUtBUFFERIN 

rep Fin«F:ia>F:i3>Fti*<F:iSfF:i6<F:i7<ritR 

cH/FFtRIS ȣS 

Llilt A'10' *Ea9 cant 

B **2 

oi^FES3J REs £ 

LI. 14 mil' »«ITE C60E 

L»t7 15 

L»,6 »»7 STATl'S wSWC 

LI.S 1 

ST/»B -»6 SET STATUS 

L*,S ,.7 jNilT MB, 



STetl* » 

ST..3 FPT 

L<./3 b.7 

L». l" tB <EV \e. 

ST«»1» FPT*b SET <EY T9 ZERB 

L*.6 2/7 BUFFER »U0B 

»Mi.#i> "ASK 

ST, .6 FPTu 

L/..6 3.7 *8R9 C6UMT 

L..6 C»6 

SLStB i PTTF CflUNT 

ST,. 6 FPT + i. 

CALl.l FPT 

Lit 9 2 

E*IT L*t6 »/7 

ST..t9 ^,6 SET I/O OIPLETE 

AI.1S c 

B »I5 RETjR-J 

ER«3R RES C 

LIt9 » 

B EXIT 

FPT DATA OtX'BlaOJOlO' .ERRBR, J,r„r 

jC3 data f:ii#f :i2<F:i3iF:i'>'F:iStF:iB>F:i7>F| 

■1ASK OATA xilFFFF" 

ENC 



23 


1 


33 


2 


23 


3 


23 


Ik 


23 


5 


23 


b 


23 


7 


23 


F 


23 


B 


23 


in 


23 


n 


23 


12 


23 


1? 


?3 


1» 


23 


15 


23 


16 


23 


17 


23 


IS 


23 


19 


23 


20 


23 


?.l 


23 


22 


23 


23 


23 


2» 


23 


25 


23 


26 


23 


27 


23 


28 


23 


29 


23 


30 


23 


31 


23 


32 


23 


33 


23 


Jit 


23 


35 


23 


36 


23 


37 


23 


iS 


23 


39 


23 


»a 



15 



2.6.7 SUBROUTINE PKBL2 



R9UTl«E! PKBL2 



» "K8L? 
SJBR8UT 

cbipbn 

• «CTC(1 

• 3JMY1 

• CNTLIl 

• <CSf(i 

• V<IM( 
C3"M8Y 

• I»DPI( 

• INT1K 
. STtjTIi 

EB^KBN 
. C3MH 

• ENBFIi 

• GLABIl 

• S'BCIl 
Ce^f'BN 

. "MIUl 

. TSTRTI 

CB^MBN/ 

. ~iaro ((> 

• "INCT 

£QJlVA L 
1 

2 

3 



IME HKBLS 

/au<' /A8GI (16) . [MTH] (31 

7)»<3PM (31 ).STUPF,\iCl(31) 
/8LK14/ CLENd » OTLNG 

< DU"Y2» » 

37?)/ ENTFL{5)| <CL<17). KCTF 
7), NMVAIODa SMSKKg). 

123) » LNKPTI64) 
/OKI'/ ADVNl(8) » CICBI(i) 
8) < CNTDR(124) • CNTNM 
31) , INTLK31) / INTBK32 
321/ T1ME1(3£)( BV8Kl(69) 
/8L<18/ CICTI(8) » CTSDI(B) 
62) . CUR8K31) . CYCLIOl 
31) , GAAbI(l24] . GA*T!<31 

12») j G^Abina*) < aUABKie 

124) / TK1K3!) .KRKBK31) 
/BL«19/ CC2U29). C>A!L(69). 
) # RA*eC(25S) . RA.SPI25 
516) 
BuK28/AJR(l»),PlA(6),BC v l(2) 



INT21 (31 ) 
CLHG 



i CABiiim 

. IL2 

» KU1 

» STBOI(R) 

» ENIMI496) 

j 3B<<T1(31> 

/ !NTDI(»96I 



40) 



HMAp(a) 

UHSbP 

TASO) 



JCNT 

CLOCK 

\8NB<8> 



INTEGER 
iCIALl.C 
?STSDI. 
CS^MSt. 
CB M MBN/ 
31">E*SI 
lCICEFu 
?H8LD(3e 
3ST«TA( 
EUUIval 
1 ( ADvNH, 
91AUT8F, 
1 (ClCbP. 
llCICTF, 
31CPA8G, 
4( I»DVP. 
5(SPICH, 
6ITWNSF, 
INTESER 
iCICTF 
2ST«TA,T 
E3UIVAL 
CALL PK. 
CALL f 
CALL I 
CALL I 
CALL I 
CALL I 
CALL 
CALL 
CALL 
CALL 
C«LL 
CALL 
C'LL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETUR 
End 



ENCE (AUT8I,*DVNI(2)) .(CI 
(CICSI,CTBDI(2I) MC 
(FbTCI,CA8GI(2) ) .(IN 
(SPLCI.SMSKI (21 ) .(TR 
(GAII»AGR(2) ) *(HB 
(AP8I,AP9ri(2) ) »(ST 
AOvNIjAeGI.APBI.AUTBljCICBIj 

ABSI»FSTCI,uAI I.HBLBI, IADPI, 1 

R.NSI 

/BYTL2/ICBN, JL2.KL2. IDECR.WSL 

8ITl2/BITaR(640> 

8N aUvNH(32),aBIi(32),aP8(32)» 

21.C1CTF (32l»CT8DF(32)jC«ALF( 

),IAUvP(32),lNTiS(32)»SEI"SK(3 

2).TWNSF(32).CICSF(32i 

ENCE 

BITAK( l)),(A8G jB!TA«( 33) 

BITAK( 97)1* 

8ITAKU29)), (CICEF.BlTAR(161) 

8ITAW( 225] ,, (CTBDF,BITAH(257) 

SI TAW (321 ) ), (FSTCF,B1TAR(353) 

81 TAN (m 7) ], (INTlS/BlTAR(*»9) 

B I Taw (5i 3) ), (STRTA.BI TAR! 5*5 I 

BITAW(fc09) ) 
ADvNH # A8G,APe»AUT8F.RPSlF»BT 

TSDF/CMALF,CPA8G,FSTCF,3AI,hlB 

RNSF 

E'NCE ( I..SL2U) ). < J«kSL2(2) > 

BIT (SPLCI.1L2 »SPLCH) 



D8F( 171. 

8) »8TC . 

SB(l*).AP8Ml (l»),ePN3U, 
. KCNT , 

. WMINF , 

CEI.CICBU2) I . 

AL1.C1CTU2) | , 

lSI» IADPI (2) ) , 

NSI»STBDI(2)] . 

LDI»HSB(2il , 
RTI.ABG1 (?) ) 

cicei.cicsi.cicti.ct9di 
msi,smski,splci,strti, 

?(50) 

ALT8F(32),CICBP(3?I. 
32).CPA8G(32).FSTCF( J2) 
?).SPLCM(32),STBY0(3?). 



I.(AP8 .BITARl 651). 

). (CICSF.BITARH93) ), 
I. (CMALF.BITAR(289) ). 
1. (hBLD ,BITAR(3 8 5) ), 
I, (SEmSk,bITAR(43i 1 ). 
1, (STBYU,BITAR(577) ), 

RNF.CIL8P.CICEF.CICSF. 
LD.SEMSK.SPLCH.STBYD, 

(K»wSL2(3) )t (L.WSL2Ct> ) 



8IT (TRNS1, IL2 .TRNSF | 

BIT (FSTCI.IL2 .FSTCF) 

BIT (CICEI.IL2 .CICtF) 

BIT (CILSI. IL2 .CICSF ) 

B IT ( CICTI.IL2 »CICTF) 

BIT (ADVNUIL2 .ADVNH) 

3IT ( IMSI. IL2 .INT1S) 
8IT(MR|.UI*IL2 .H8L0) 

BIT (AUT9I.IL2 »AUT8F| 

BIT (C-A L 1, |L2 .CMALF) 

-)IT (STbDI. IL2 .STBYDi 

BIT (CILBI.IL? .CICBP) 

BIT (»BjI,!l2 .Aei) 
,SIT(AB8I, IL2 .AP?) 

BIT (CAC'GI. !L2 ,CPA3b) 

BIT ( IA./OI.IL2 ,IA0VP| 

.BIT (3T-TI, IL2 .STRTA, 



1 
? 

3 
« 
5 
6 
7 
■ 
9 
10 
11 
12 
13 
Ik 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
2<t 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
"0 
M 
»? 
»3 
»» 
»5 
»6 
»7 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
*? 
OO 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 



16 



2.6.8 SUBROUTINE UPBL2 



• JPB|_£ 

SudRBUTINE UPBL? 

C81MB.N /BLk> /A8GI(16) . ISTHIOl) , INT2K31I . 

• <CTC( 17)/<3PmI I 31 ),STU=F,NQ L ( 31 I 

CS^HBN /BLK1»/ CLENU i DTLNG » C«LN6 . 

• 3'jmyi , ouivaj 

• CMTUI(378)i Ei-TFLISI, KCLI17). KCTF(17)j 

• <LSF(17>» NmvMOII/ SlSKl(8)» 
» V«INI(123) , l*KPT(6») 

CS-IMBn /BL<17/ ADVNK8) i CICBKS) , CA8(jK8) . 

• I»DPI(8) . C^TD«(12») t C^TNM » II? < 
. INTMI(3D , INTLI (31 ) < !NT8](32| , KL1 , 

• STBTl(JJ), TIME1(32)< QV8MI69) 

CB^SN /BLK18/ C1CTK8) , CTBDII8) , STB0I18) , 

. COM I (62) . CUPB1(31) » CyCLI(31i » EMM(I»96) » 

. EN8FI(3j) , B*ASI(124) » GAWTM3J1 » SBWTK311 . 

• SLABniaii , aiABKia*) < guaBki2«) , intbi<»96i , 

• SABC1(12*1 i T<MI(31) »*«K»I(3l> 

C91K8N /BLK13/ CC2(129)i DF*!L(69)» DPF(i7), 

• 111(31) » RAwbC(25BI » RA-JSPI258) ,BTC , 

• TSTRT(5l6> 
C9"MBN / BLK2B/A^R(l<tl,PlA(6)»BC"(2)/Hse(14)/AP9f1 1 ( 1 1» > , CPN8U, CPN9T, 

• 1ARS(i*0) i H1API2) > JCNT < KCNT < 

• 1MC15 i *HSt>F < CLBCK / WMINF . 

• 1INCT < TAB(3) » \8NB(8) 

ES^IVALENCE (AUT6I»A3VN1(2> ) t (CICFI jCICBI (2) ) , 

1 <CiCSI,CT8DI(2) ) (ICALI.CICTIIJII , 

2 (FSTCI.CA8SI (21 I , ( IN,S!» IA0PI (2) ) . 

3 (SPLCI»SMSKI(2I) , (T«NSI»STB01(2) ) , 
<t (GAII.A6R(2>) / (H8L0!.HSei2) ) , 
5 (AP8I,AP9m1(2I 1 , (STrTIjABGI (21 1 

INTEGER ADv^IjABGI.ApBIi AUT8l,CICBI»CICEI*CICSI»CICTI # CT8DI, 
1C1»LI.CA9&I»FSTCI,CjA1 I ,HBLD I , 1 AQP J , Inj S I , S"Sk I , SPLCI ,STRT I , 
2STdDI/TRNSI 

C8"lriBN /BYTL2/ICBS,JL2/KL?.IOECR.WSL2(50) 

C6iM6n/BITlZ/BITAR(6«0) 

DPENSIBN AL>i(NM ( 3 2) ,A8lj(32)<AP»(32)»AUTBF|32)jCICBP(3?)« 
!CICEF(32)»CiCTf I 321 .CTBDF ( 32), C«ALF ( 3? 1 /CPA9G( 32 1/FSTCF ( 321 » 
2HBL0O?), 1AJVP132I, 1»T1S|32),SEMSK(3?),SPLCH(32),STBYD(3?), 
3ST*TA ( j2),T*NSF (32)<C1CSF(32| 

EQUIVALENCE 
1 ( ADVNm.BITa*! 1)),(A8Q »BlTA«( 331), (AP8 iBITAR( 651). 
2(AUTBF»B1TAK( 971). 

1(CICBP,B1TAK (1 29| ), (CICEF,B!TAR(161) )..(CICSF,BITAR,193) 1. 
1 |C1CTF,BITAK(225) ), ( CTBDF, BITAHI 257) I, (ClALF, BI TAR ( 289 ) I. 
3(CPA8u,8ITAX(32i) ),(FSTCF,BlTAR(353) ), (H8LD , BI TAR ( 385 > ) » 
4(IADVP,B1TAK((,17) ), ( INTlS»BlTA«(<t*9) I. (SE1SK, BI TAR ( »M I ), 
5(S>'LCH,BITAN(5 1 3) ), (ST«TA,BITAK(5*5) ), ( STBYD, BI TAR ( 577 ) 1 , 
6(T*NSF,BITA«(609)> 

INTEGE* ADv*H,A9U,AP8,AUTeF,i?PSIF»BTRNF,CIC8P,C!CEF>CICSF» 
1CICTF,cT6DF,CMAi.F,CPA8S,FSTCF i GAI,h8lO,SE m S<,SPLCH,STBYD, 
?ST*TA,TRNSF 

EQUIVALENCE ( I.WSL2I 1) )» ( J»kSL2(2) )• (K,wSL2(3) )» (L.WSL2U) ) 

CALL UNB1T (SPLCI.IL2 ,SPLCM) 

CALL UNBIT (TRNSI/IL2 <TRNSF| 

CALL U.V81T (FSTCI.IL2 jFSTLF) 

CALL U,\SIT (ADVM.IL2 /ADVNH) 

CALL UivBIT (IMSI/IL2 <INT1S] 

CALL UNBIT (AUT8I.IL2 jAUTSF) 

CALL U\BIT (CMALI»IL2 /ClALF) 

CALL UNB1T (STBDI.IL2 /STBYO) 

CALL UNBIT (CICBI.IL2 #C1CBP| 

CALL UnBIT (ABIJI.IL2 »AB3) 

CALL U.\BIT(AP8I,IL2 .AP8I 

CALL u\BIT (CICE1.IL2 .CICEF) 

CALL O'^BIT (CICSI.IL2 /CICSF) 

CALL U^BIT (CILTI.IL2 *C ICTF , 

CALL UmBIT (CTB0I.IL2 »CTB»F| 

CALL UNBIT (CA6SI.IL2 /CPASd, 

CALL U\BIT(H9L0I,1l2 »hslCI 

CALL UsBIT (UUPI,IL2 »!A0vP, 

CALL USBIT (SMSKI.IL2 »SE*SK) 

CALL UNBIT (STRTI.IL2 .STRTA) 

RETURN 

END 



6 


2 


6 


3 


6 


** 


b 


5 


6 


6 


6 


7 


6 


« 


6 


9 


6 


10 


6 


11 


6 


1? 


6 


13 


6 


1» 


6 


!5 


6 


16 


6 


17 


6 


18 


6 


19 


6 


20 


6 


21 


6 


22 


6 


23 


6 


2» 


6 


25 


6 


26 


6 


27 


6 


28 


6 


29 


6 


30 


6 


31 


6 


32 


6 


33 


6 


34 


6 


35 


6 


36 


6 


37 


6 


38 


6 


39 


6 


»0 


6 


»1 


6 


»2 


6 


*3 


6 


»» 


6" 


»5 


6 


»6 


6 


»7 


6 


»8 


6 


*9 


6 


50 


6 


51 


6 


52 


6 


33 


6 


5» 


6 


55 


6 


56 


6 


57 


6 


58 


At 


59 


6 


60 


6 


»1 


6 


6? 


6 


63 


6 


6» 


6 


65 


t 


66 


6 


67 


6 


<-8 


6 


69 


6 


73 


6 


71 


6 


7? 


6 


73 


6 


7» 


6 


75 



17 



2.6.9 SUBROUTIN E UPKMC 



RSuTlsEi b°< -, C 



C • JPK1L 

SudRSjTI <E JPpc-C 

This ROUTINE U'J"AC*S T-E 
C LEFfeST 17 SITS 6F 

C <"-CSP I\T8 Tie 4R0AV ■C-'CS 

EXTER-i.L < C.S" 

WWi /3»'L?/IC8\, JL?/KL2< I^EO.i. 

DMEMSIBN <"CSU7) 

E2UIVA l EnCL («SL2C).K1CS) 
S L»«3 OCS? 

S SlS»3 16 

3S 20 I i 1» 16 

»1CS( 1 )«0 
S CI.3 

S BtiE^ 10S 

<MCS( I 1.1 
IS CONTINUE 
3 SLS«3 1 
23 CS^TI\bE 

*E'URN 

E%3 



5 


1 


S 


2 


5 


3 


5 


k 


5 


5 


5 


6 


5 


7 


5 


S 


5 


9 


5 


10 


5 


11 


5 


12 


S 


13 


5 


10 


5 


15 


5 


16 


5 


:? 


5 


if 


S 


19 


5 


20 


5 


21 


5 


2? 


5 


23 



18 



2.6. 10 ROUTINE B 



* 


WTNB 
P»jF 






BEF 


"■TNB 




REF 


|<TNC 




REF 


NUMVED 




REF 


TT 




KEF 


K\E* 




RFF 


DBP.RTC 




KEF 


Pl»P2»P3»P» 




«CF 


TSTAKT 




REF 


SAvRO 


Plfc\L> 


i.3u 


Pl*l 


PPF-NU 


Ejo 


p?*l 


pjtNU 


Eiu 


P3«l 


P»F.VJ 


Etfw 


P»*l 


TSTEM^ 


Eao 


TSTART 




PSvS 







SYbTEr- 


0TC.SKE5 


dS*VER 


DATA 





ST»C< 


RES 


16 


RT^B 


RES 







ST...R0 


BSAVERO 




LI.RJ 







Ll.»2 


1) 


BE.UIN6 


RES 


c 




L«,Rl 


uBH 01 




ANU/Rl 


• JOS' 




B 


TABOBPjRl 


TA»0»P 


B 


DDBPo 




fci 


BOBPl 




B 


bDBPJ 




B 


S0BP3 


BDBPO 


RES 







Lrt.HlU 


P1END/R2 




EBk.RIC 


P«.EN0»«2 




L*»R9 


P3EN0.R2 




E8*»R9 


P»EN0jR2 




ANC»«9 


RIO 




BEZ 


6*1 




lw,Rll 


P«END.R2 




E8n.RH 


R9 




ST..R11 


P»END/R? 




B 


04 


8DBP1 


RES 


C 




L*i"10 


P2END.R2 




EBk.KlO 


PlEND.R? 




L«»w9 


P4EN0.R2 




E8K.R9 


P1END/R2 




ANu»R9 


RIO 




BEZ 


BUI 




Uw.Rll 


PlEN0»R2 




E8f>.Rll 


R9 




ST..R11 


P]END»R2 




B 


bk 


BDBP2 


RES 






1>,-,IG 


P3F\D»R2 




EB^.RJu 


pjens.r? 




L"»K9 


P1ENDiR2 



SAVE RETURN 

T1«E T8 START INCJX 
VEHICLE DETECTtw jATA MDEx 



DETERMINE «MICM INPUT 

BUFFERS T8 PROCESS 



A And 




P«(l ! • Ptdl E8R A 

T8 F8KM NE» W 



Pl( ! ) • PI ( I I E8R A 

T8 F9RM NEk. W 



2 


1 


2 


3 


2 


3 


2 


* 


2 


5 


2 


6 


2 


7 


2 


>> 


2 


9 


2 


10 


2 


11 


2 


12 


a 


13 


2 


I It 


2 


15 


2 


16 


2 


17 


2 


18 


2 


19 


2 


20 


2 


21 


2 


22 


2 


23 


2 


2* 


2 


25 


2 


26 


2 


27 


2 


28 


2 


29 


2 


30 


2 


31 


2 


32 


2 


33 


2 


30 


2 


35 


2 


36 


2 


37 


2 


38 


2 


39 


2 


»0 


a 


»1 


2 


*2 


2 


»3 


2 


04 


2 


♦ 5 


2 


• 6 


2 


»7 


2 


»8 


2 


»9 


2 


50 


2 


51 


2 


52 


2 


53 


2 


5» 


2 


55 


2 


56 


2 


57 


2 


58 


2 


59 



19 



a«l 



H«2 
B*3 



E9R.R9 

AND.R9 
BE 2 

EB-.Rli 

ST..HJ1 

B 

RES 
LW.R10 

EB(*)Ri; 
L».><9 

E9>-.R9 

ANC.R9 

BE* 

L«.Rll 

EBR.Rll 

ST..K11 

RES 

E8~.Rlc 

RES 

CI.RIO 

BE 

LI.Rl 

RES 

L8.R11 

&tl 

RES 
SCS.R11 

LI.R9 

A..R9 
SAS.R9 

RES 

CI. Ill 

BSE 

LW.R5 

Aw.R5 

C",R5 

BSE 

ST„.R5 

L«,«13 

B&U 

AMU.KJ3 

LW.R12 
ST...R12 
S>,R1? 
ST*.M12 

LCI 

STM.O 

LxjC 

LI.1» 

BAL.1& 

LCI, 

B 
RES 

L»»R12 

BK.R12 

ST^.Rli 

RES 

AI.R9 

SLS.R11 



PjENO.R? 

RIO 

Bwl 

P2ENL.R2 

«9 

P?END.R? 

Bh 


PtEND,R2 

P3EN3.R2 
P2END.R2 

P3EN0.R2 

RlO 

Bhl 

P3ENB.R2 

R9 

P3EN0.R2 

R9 



B»8 
• t 


Rll.Ri 

ttw7 





A • A AND a 
A • 



P2(I) ■ P2(I) EBR A 
TB F9RM NEW W 



A • A AND 
A ■ 



P3(I) • P3(I) EBR A 

W •« ESR a 

« • 
VES 
INITIALIZE J 



X • 



BYTE 1 9F 

am 2 Br 



. C. L • 
• 0. L • 



8VTE » 9F * . 0. L • 2* 



MSB 9F » . i 



K«Kl*L. RANGE' T8 INUlVED'l) 
K " MJMBER BF VEHICLE DE'ECTBRS 
FIM 



B*6 

R3 

R9 

NunvEO 

EXITS 

KNE4 

TSTENU.R5 

Uw5 TSTART(K) • 

•X'7FFFFFFF' A » TSTaRT(K) AND MASK 

RTC TSTART(K) • RTC 

TSTEND.R5 

R13 

TT TT . RTC • A 



STACK 
SAVRO 


RTNC 

STACK 

Bw6 



RTC 

■X'SuLOOOOO 

TsTE<.D»R5 



1 L ■ L ♦ 1 

1 X LEFT 1 BIT 



T9 CheCK FBR NEXT BETECT9R 



TSTARTU) • RTC 9R MASK 



2 


40 


2 


61 


2 


42 


2 


63 


2 


6t 


2 


65 


2 


66 


2 


67 


2 


68 


2 


69 


a 


70 


2 


71 


2 


72 


2 


73 


2 


7» 


2 


75 


2 


76 


2 


77 


2 


78 


2 


79 


2 


80 


2 


81 


2 


8? 


2 


83 


2 


B» 


2 


85 


2 


86 


2 


87 


2 


88 


2 


89 


2 


90 


2 


91 


2 


92 


2 


93 


2 


9» 


2 


95 


2 


96 


2 


97 


2 


98 


2 


99 


2 


100 


2 


101 


2 


102 


2 


103 


2 


10* 


2 


105 


2 


106 


2 


137 


2 


108 


2 


109 


2 


110 


2 


111 


2 


112 


2 


113 


2 


lit 


2 


115 


2 


116 


2 


117 


2 


ue 


2 


119 


2 


120 


2 


121 



i*7 

B*N 



EXITS 



CI.R11 





BNE 


Bxt 


RES 





BIr.Rl 


b^2 


RES 





AI.R3 


32 


C.R3 


4UMVEC 


Bat 


ExITb 


AI.R2 


2 


B 


BEGINB 


RES 


c 


L».RO 


bSAVEHO 


B 


• RO 


END 





X ■ 
CHECK ALL BYTES BF • 

K.M1*32 

Kl ' NUMBER BF VEHICLE DETFCTBRS 
FIN! 
I.U? 
CHECK NEXT GRSUP BF 3? DFTECT9RS 

REST9RE RETURN 



2 


122 


2 


123 


2 


12t 


2 


125 


2 


126 


2 


127 


2 


128 


2 


129 


2 


130 


2 


131 


2 


132 


2 


133 


2 


13t 


2 


135 



20 



2.6. 11 ROUTINE C 



■IT-C 



-,p. 



)'P, 0»L» D-LP, 



»«SP. 

EBDC 



«TC 



C9"MB-./LSG"j"P/-/ 

• T3. tt, ir: 

Ce->«9 , /3LK13/ '«L(Z59) / D«LP(17) 

1 FTAb. FTB-Ji "JEI» li9l 
CS^IP'N /OU<lb/ iJBP . K^-E- 

C91MBN /3L«.13/ CC2(129)« DFAILI69). 0BFU7) 

• "II Oil < WA«9C(25S) , RAWS»(??8) 
. TSTRT(516) 

:9"t-8N /BL*19P/ CC2 p (129)»*A,.9CP<2bBl. c ;A»SP CJ ('58> 
DATA IB»TO/0»1/ 

C SET D9F (Kl ■ 

<si a *\EW ♦ 1 
CAUL PT9I(JBF,*N,«, 18,0) 
CALL SETS] (0*L>'jKN.»ITMP»OI 
1F(IT«P.NE.0) NETJx'v 

C 

C OETECTaU WITH LINK AHRAY 

C 

CALL hALFO"L*K\»» 1R») 
r 
C TEST F8H DETECTS* FAILED 

1R» • !«« » 1 

CALL uETBYl JFAlL»IS», ITMP) 
C 

C IF DETECTS-" FAll.ED{lv9T E30»L ZER* ) H E Ti R\ 

C- 

IF( ITMP.NE.O) retukk 
C 

C CETECTjR CAN CBUNT UPDATED 
C 

CALL GET3Y(LC2,K\«, IT"P] 

ITiP • ITMP + I 

CALL PTBY(CL2,Kn„,ITMP) 

CALL 3FTdYlC.C2P.KN-.. IT"P) 

IT-1P«IT1P*1 

CALL PTBY(CL2P.KN«I, ITMP) 

OBJECTED PULSE LENGTH . PuLSC LEN3T.. . C9* W ECT^ CO^STA^T 



IRll . TT - TD 

IF( IRH«SE.8) u9 Tb 10 

TEST T^.jT.l/i. SEC AT B5« SET IF LESS 

Hll ■ 8 

10 CBNTI-JuE 
TTC . IRH 

«« BCCUPA iCY UPQATEJ UY CMKSECTED p uLSE LE^tiTn 

CALL maLF[><A.BC,KN.., ITMP) 
IT1P.IT-!P*I«I1 



ID 
1! 
1? 
13 
l» 
1? 
16 
17 
18 
19 

z~. 

21 
22 
23 
?• 
25 

?(■ 
27 
28 
29 



33 
)» 
35 
36 
37 



"1 
»2 
"3 



55 
36 



CALL 


PTMLF(«Aw9C»<- 


-, ITMP) 


CALL 


HaLFIRAaPLP.K- 


*,1TMP) 


I TIP 


1TWP+1«11 




CALL 


PTHLF("A«5CP»« 


N»/ ITMP) 


CALL 


HALF HA»SP»KN, 


. ITMP) 


IT-P 


• 512/TTC ♦ 11 


MP 


CALL 


PTnLFf *AiiSP<K' 


».IT"P) 


CALL 


HALF(R* , « , SPP»K' 


*»ITMP) 


1T*>P 


IT1P»bl2/TTC 




CALL 


pt^lfixa ,spp,*\-»,it;ip) 


a£TUR'< 





60 
61 



68 
69 
70 

r\ 



21 



2.6. 12 ROUTINE E 



R3UTIME! RTNE 



RTNE 






2 


1 


SjBRBLTINE Ryne 






2 


2 


INTEGER T*CF, D»L, CYCLC 


DFAIL, 0».LP, 


DMALF, D3F, DIS, 


2 


3 


. CMMAl, tstrt, GAP, rtc 


VMIST, P08F, 


TM8EF, CC2, BAV>SP, 


2 


A 


. -'A*«c» RLNK8, RLn<C» CMTAB 


CMLNG, H8L0, 


BTTAB, DTING, ES'TFL, 


2 


5 


. TTji TT7 






2 


6 


DI^ENSISN PJ9F132) 






2 


7 


C9"^9n /RTnEF/ 16, JL 






2 


8 


CS^fS^ /dL*8 / F1C 


FhARK 


. V IAST(9) , 


2 


9 


• -fAST , jIAST 


KPAST 


, ElAST # 


2 


10 


» -H1AST ' , »1AST 


OMAST 


, I1AST , 


2 


11 


,t SPACE ; , MP8KY 


QCNT 




2 


12 


C9" , K9N /BL«8/ "1# NDLNM69), 


TT3/ 




2 


13 


. TT7 






2 


in 


C9- | fiBN /BL".l:/ CICSC(16) 


CICSY,8) 


< CTLSC(tt) , 


2 


15 


1 CTLSY(<t>,CMSEC.(3l l»CNTZNI19 


,LNKCN<»,9), 




2 


16 


• TIMCHit) . , ZSK32) 






2 


17 


C91M8N /BL<11/ HS61S(32) 


IG15(6») , 


KW , 


2 


IB 


? LNKDI|6<H,N08L( 69),NBNCS»N8CNT(<.), 




2 


19 


• T5SU 






2 


20 


CB1MBN /3K13/ D»'L<259> 


D«LP(17I 


» ESOC . 


2 


21 


1 FTAB. FTBrfU, MBEIF(69I 






2 


22 


C9"'KBN /BL«.1%/ CLENG 


DTLNS 


, C*LNG , 


2 


23 


• DUhYl, DU.1T2, CnTln(372)»EntFl(5)< 




2 


2» 


• <CL(17), K.CTFU7), KCSFH7) 






2 


25 


• N""VA\H|3l) , SEMS<{8) 


VRlNTnaS) 


, LNKPT(6»I 


2 


26 


C8~MBN /BL<15/ CHSET 


HBUFL 


/ IGPI , 


2 


27 


• --MUMF , \gnCM 


NCW22 


, NC-D2 . 


2 


28 


• \CiRD , N-IANP 


NMCTL 


, NMI.K* , 


2 


29 


• MiSCT , N-<vED 


NPATB 


, NP6* , 


2 


30 


• ■.RESP , NST^l 


TBSU 


. TBYTE , 


2 


31 


• CS , DS 


, ps 


. MS , 


2 


32 


•as , RS 


, ss 


, SCS 


2 


33 


C9"MB> /3LK18/ CICTF(S) 


, CT8DF18I 


, STBYDI8) , 


2 


3* 


• C9NTB<62) , CUR9F(31 1 


. CYClC(31) 


< ENINTU96) , 


2 


35 


• E^8FF(31) , CGGT(12»I 


, GAwTP(31) 


, viB.TPnil i 


2 


36 


• GLAB012*) » 3GGGM20) 


, GUAoCll?*) 


i lNTDu(»96) , 


2 


37 


• SSSS[ 15*) , TKM31 ) 


, *R<9f ( 31) 




2 


38 


C91M3i, /BL<19/ CC2I129), DFAIL169), C9F(17 


, 


2 


39 


• -11(31) > R»»9C(258> 


, RA»SP(258I 


, RTC , 


2 


♦ 


• TSTRTc516) 






2 


»1 


C9inBv /BL<<!3/ EXTGF(S) 


, IHIBE 


, LNKSP , 


2 


»2 


• Ml, 9aCC<138)# RLvKC, RLN<8 


, SACC1138), STPTM, VACC{138|, 


2 


• 3 


•TBUFFl 1655) 






2 


»« 


C9-im9i /BL<24/ AHIST(139)« CN3IS, DCF, 




2 


»5 


• B9W , FMT90 


, FSTFL 


, HLIDF , 


2 


*6 


• HLIDTi9t>) , NHLAY 


, PRC9D 


, PTN(7*5) , 


2 


»7 


• SMTFL, S«3lS, ThRS", YMIST(13S) 




2 


»8 


CB^I-B'. /BL<<!5/ AMCCH36), tf 


-ALU?), C' M TAB(258)« 


2 


»9 


• DTTAB1258) , DIi( 17) 


, DMALF(17I 


, D*90E , 


2 


SO 


. FLTA3I800) , HUF 


, 190ES 


, NAI , 


2 


51 


• N9FAL, SBAR(69)< SECFC(*>> 


SC'JFC(it), v9l(13a) 


2 


52 


Cg^Mg-v/BLKJB/AoRi 1»I.PIA[4), 


RC«(e)jHs8ti»)i 


APfi") ( l»),CPN9U,CPN9T, 


2 


53 


I MARR(e»0I < H1AP(2) 


, JCNT 


, <CMT , 


2 


5A 


. 1NC15 . -"SBF 


, CL9C« 


# * 1 1 V K , 


2 


55 


. 1INCT , TASI3I 


, N8NBI8) 




2 


56 


EQUIVALENCE (LCCRT,LNkC\> 






2 


57 


EQUIVALENCE (H3LD(1)#HS9(S) I 






2 


58 


EQUIVALENCE (Nt)l-AX,NMVED) 






2 


59 






DATA \CT/ 32/ 

DETECT9R AND C9I-<MUNICAT IBNS FAILURE DETECTIBN R8UTTNF 

IFI IMluE.NE.OI RETURN 
M ■ 1 

CBNTINuE 

09 210 INDEX. 1,17 

IS iv CYCLE 3TART FLAG SET 

IFIRCSFIINjEXi.rU.o) G8 TB 213 

<CSF( I^DEX) • 

I A • NulAX 

C9NTI\uE 

CALL HALF(0»L,IA, ID 

ILMLM 

CALL 3tT8Y{LCC*T,lL, I C > 

ICIC+1 

CALL GET3YICVCLC, IC, IB) 

lb ■ lo ♦ 1 

CALL &K-TdY(NOL : -K, IL,nD) 

CALL of.TBY(N[)BL, IL.NI ) 

IFINI.LQ-O) o9 TB *5 

IF( INDLX.EJ- IB) G9 T8 be 

C9NTINuE 

I A . I A • NO 

IF( IA.uT.0) '9 T8 *C 

G9 T9 £10 

C9NTINUE 

CALL PTBY(t)FAlL, IL,0) 

C9MTI.NUE 

SRanCh [f T«IS IS A DUMMY DETECI9R 
CALL Gf TBI(U«LP, 1A, IDwLP<0) 



2 


60 


2 


61 


2 


62 


2 


63 


2 


6* 


2 


65 


2 


66 


2 


67 


2 


68 


2 


69 


2 


7C 


2 


'1 


2 


7? 


2 


73 


2 


7<t 


2 


75 


2 


76 


2 


77 


2 


78 


2 


79 


2 


80 


2 


81 


2 


82 


2 


83 


2 


8» 


2 


85 


2 


86 


2 


87 


2 


88 


2 


89 


2 


90 


2 


91 


2 


92 


2 


93 


2 


9I» 


2 


95 



22 



IFUDWlP'EUM) G8 TO 100 
CALL GtTBI (DMALF. IA. IOMALi 
CALL 3ETBt(D8F. IA, ID8F.0) 
CALL SETBKUISj !A, IDIS.O) 
CALL JLT3I (tMMAL»IA» IC MM F,0) 

CHECK DEUCT9R ANj CBUMUNI CATION FAILURE FlAGS 

IFI ID"aL*IDOF*IOIS+ICMMF.NE.ji G8 T9 80 
]C(TSTkT( IAI tLT.O) l>9 T9 ISO 

C PR9LESS END 9F PULSE 

C 

SAP • hTC - TSTRTI IA) 

IFtCjAP.GE.j) OB T9 70 

CB1PE-NSATE F9» KTC bElNU BESET 

C 

0A U • uAP ♦ IQPI 

C hPA-jC h \f GAP >Lt. 180 (5760 • 180*?«»5> SCALED B5 

7 J 'cBNTlNuE 

IF<SAP,L£«11580) 39 T9 150 
CALL HALFIVMIST, IL< IVHST) 

C * jSE \9iIN4L 250 vpm (SCALED Bl ) 

IF( IvhsT.LE'O) IVHST.500 



ITEI-P • 11»360C/IVHST 

IF(CiAP.LE.ITEMH) G9 TB 150 

CALL aETdI(PDBF,IA,lPDBF,0> 

1F( IPjHF.Ei.C) GB Tt) 130 
C 

C CLEAR PBSSIbLE DETECTBfi BBSTRUCMBN FLAu 
C 

CALL PTBI (PD9F. IA,„»o) 

CALL PT3I (DBF, IA, 1,01 
BO CONTINUE 
C 

C SET DETECTOR FAILURE FLAG 
C 

CALL PtBYIQFaIL.IL.I! 

T1SEF • 1 
90 C6NTINUE 
C 

C 2ER9 BUT CAR C8UNT. RAH SPEED. AND RAW BCCUPANCY 
C 

CALL PTBYICC2.1A.0) 

CALL PTHLF(KAWSP. IA.O) 

CALL PTHLF(*A.i9C» 1A»0) 
100 CONTINUE 

I* ■ IA • 1 

NO • St " 1 

IF(ND.OT.O) G8 TB 60 

IF(TMbtF.NLO)GB TB ISC 

CALL JETBYinBEIF.IL^BEF! 

IF(MBEFtEOtO) OB TB 110 

M8EF a 1BEF - 1 

CALL PTBV(MDEIF,IL.MBEF> 
110 C9-JTINI.E 

CALL RTNF 

RLNK8 • 

RLNKC • 

LNKSP • 

IF( IA.OT.0) G8 TB «0 

08 TB ^10 
C 

C T16EF HAS BEE'' SET INDICATING IN9PFRATIVE DETECT9R 9N LP'K 
C 

ISO CONTINUE 

T^"EF . 

CALL PTBY(M8EIF,IL#8) 

S3 TB 1 10 
130 CONTINUE 

C SET OETELTBR COMMUNICATION "ALFUNCT I9N FLAG AND RECBRD DFTECT9R 

C NU^t-E" 

C 

CALL PTBI(C"MAL.IA,1»0) 

CALL PtHLF(L»'.TAa.CNLisG*l» I A ) 

CILNCi • CfLNG ♦ 1 

G9 TB eO 
1*0 CBNTImuE 
C 

C b«A,wCH IF CSMTRBLLE* IS UNDER CfllPLTER CBNTR9L 

C 

CALL GtTSI(H9L3« IC.lH0L5.il 

IF( IH9L0.EJM ) GB TB 9J 



T19EF • 1 

G9 TB 90 
Ibj CB^TlNuE 
C 

C CmeC< Ca-< CBUNT Fjr BEP'G GREATER than f-AX P8SSIBLE FRBr A 
C NBKr-AL JtTECTBR 
C 



CALL SET3Y(CC2.IA, ICC2/ 
IF(ICCf.LE.NCT) G8 T8 i?C 



160 CBNTI.NuE 
C 

C CLEAR PBSSIbLE 0ETECT9R BasTRuCT I 9* FLAU AND SET DFTECT9R 
C fALFUNCTlBN FLAJ 
C ' 



2 


96 


z 


97 


z 


. 98 


z 


99 


z 


no 


z 


101 


2 


102 


z 


103 


z 


10* 


z 


105 


z 


106 


z 


1-17 


z 


138 


z 


109 


z 


110 


z 


111 


z 


112 


z 


113 


z 


11* 


z 


115 


z 


116 


z 


117 


z 


118 


z 


119 


z 


120 


z 


121 


z 


122 


z 


123 


2 


12* 


2 


1?5 


2 


126 


2 


127 


2 


125 


2 


129 


2 


130 


2 


131 


2 


13? 


2 


133 


2 


13* 


2 


135 


2 


136 


2 


137 


2 


138 


2 


139 


2 


1*0 


2 


1*1 


2 


It? 


2 


1*3 


2 


lti, 


2 


1*5 


2 


1*6 


2 


1*7 


2 


1*8 


2 


1*9 


2 


ISO 


2 


151 


2 


15? 


2 


153 


2 


15* 


2 


155 


2 


lb6 


2 


157 


2 


159 


2 


159 


2 


160 


2 


161 


2 


16? 


2 


163 


2 


16* 


2 


165 


2 


166 


2 


167 


2 


168 


2 


169 


2 


170 


2 


171 


2 


1'? 


2 


173 


2 


1/* 


2 


175 


2 


176 


2 


177 


2 


178 


2 


179 


2 


1*0 


2 


1S1 


2 


188 


2 


m 



2 


IK* 


2 


185 


2 


186 


2 


187 


2 


188 


2 


189 


2 


190 


2 


191 


2 


19? 


2 


193 


2 


19* 


2 


195 


2 


196 


2 


197 



23 



call ptsi ipobf, ia, ,, - ) 
call pt3i ( j^al^ i a, 1 , c i 

CALL PThlFiUTTAbi'J'l ,»1/IA) 
jTLNG • jTl>~ ♦ i 
33 TB „0 
170 CJ^TI'v^ 

Calculate p«« LI« CSU'.t, lI"»k SPee^< a\D pa* 3CCupa\cv 

CALL utTiv ( LC?/ IA, ICC?) 
3LM-.C ■ RL^C ♦ 1CC2 
CALL maLF(^a-,SP, IA, IrS-P] 
LS<SP • LNKSP * IRSkP 
CALL haLFHAaBC, IA, IR6C) 
^L'-KB • ><LM«9 * I»9C/16 
^3 T3 IV 

P^BCESS BEUINNI-SO BE PULSE 

18. CBMTI.uE 

1STRT , TSTKT(lA) 
CALL PTSI ( 1STRT.1. j»G> 
IPLS • »TC • ISTKT 
IF<IPLSi3E>0) "9 Tb ,93 

CB^fENSATE F9« RTC BEI>iG RESET 

IPLS ■ IPLS ♦ ISPI 

SEE IF P^LSE IS ».ITHIN UPPE« AND l_9*ER TIME LI-1ITS 

130 C9M[\uE 

IF( IPLS.LE.TT3) SB T9 200 
IF( IPLS-3T.TT7) U9 TB 160 

SET P8S3IBLE 0ETECT9R BoSTRUCTIUN FLAG 

CALL PTBI (PU9F, IA,l,c) 
u! 19 170 
200 CeNTlNLt 

CLt>R POSSIBLE GETECT8R 93STRUCT I e^ FLAb 

CALL PTBI (PU9F, |A, Jl3 l 
G9 TB 150 
210 C3^T1 .U 

EXIT PRBCESSINS 

E\TFL<2) • JTL -3 
IFIDTf.S.NEO) G9 TB 223 
£\IFL(i) ■ LX L -,G 
IF(C*L- J.^L-D 3T T9 23C 
-ll T|,«-J 

22. C9MI ._£ 
E\TFL( ■) . C-L-3 

SET r L A F35 SCmLJOLIVJ »t\< 

23. C9\TI ,..E 

IF (DTlI nG«Cml\5 .GT. 3) m» ST (kv» ST) . i 

■<ETJR . 

FV3 



2 


1"8 


2 


199 


2 


230 


2 


231 


2 


202 


2 


2"3 


2 


23« 


2 


205 


2 


20A 


2 


207 


? 


209 


2 


209 


2 


210 


2 


211 


2 


21? 


2 


213 


2 


21* 


2 


215 


2 


216 


2 


217 


2 


218 


2 


219 


2 


220 


2 


221 


2 


222 


2 


223 


2 


2?» 


2 


225 


2 


226 


2 


227 


2 


228 


2 


229 


2 


230 


2 


231 


2 


232 


2 


233 


2 


23* 


2 


235 


2 


236 


2 


23 7 


2 


238 


2 


239 


2 


2*0 


2 


2»1 


2 


2»2 


2 


213 


2 


2»li 


2 


2*5 


2 


2»6 


2 


2»7 


2 


214? 


2 


2"9 


2 


25^ 


2 


251 


2 


25? 


2 


2o3 


2 


25» 


2 


255 


2 


256 


2 


257 


2 


258 


2 


259 


2 


260 






24 



2.6. 13 ROUTINE F 



RBUTI Mt i 



C • RTNF 

SJSRBdTI'-IE RTNF 
C.... -OUTI'vt F LI'-K V9LJME, PCCUPANCY An.H SPEED EVALUATION. 
1MEUEK AHCL, AhCC*» AHIST, AHST", DFAIL, OFaL", 
1 OACC, 8ACC, PC8T , RLNKC. RLNK8, SACC , SACC", 

7> SBAH, SHAR", TE M Pl» TE» P 2» VACC , VACC", VhIST, jHS 

1 V8L , V8L* I VPHT 

Cb^fB:.. /UL<1*/ CLENu . DTLN'S , CMlN!i , 

• 3JHY1, DUMY2» CNT L M372)«EvrFL.<5)« 

• <C|_(17)< <CTF(l7)» KCSF(17)i 

. V"1VAR|31) » SE"SK(S) , VRI\T<123> I LNKPTI64) 

C8"W8\ /BLK19/ CC2<129)« DFA|L(69)« DBF(17)» 
. il[3li , RAi.BC.l258) . BA„SP(?58| , RTC i 

• TSTRT(5l6> 

CB^NBn /BL<23/ EXTGF(S) , IhIBE < LK'KSP < 
. NI, 8ACCUJ8), RLNKO RLNK8, SACC(138)» STPTm, vACC(138l< 
•TRJFF( 1655) 

EfllfSN /BL<2»/ AHISTI13B1, CK.DIS, DCF, 

• OB* i F1T9D , FSTFL < HLIDF » 
. HLIDT(<*6) , NHUAY , PriCfl'J I PTM705) ( 
. SHTFt. SROIS, THRSH, VHISTU38) 

CBi.iBN /BL<25/ AHCC1138). CI"MAL(17)» C f, TAB(258)» 

• JTTAB,J58) » DIS1171 , 0MALF(17I , 0M8DE , 

• FLTABiROO) / HRF , MBDES , MAI , 

• N8FA L , SBA"(63)/ StCFC(*)< SCDFC(»), v8 L (138l 
C81h8-;/FANJH/ KVl, LL9N, N 

C91NBN. /RTN&F7 10, IL 

JATA Kvl, <VPH, <PC8, KSP * 

x / »5, li 1j 1/ 
C ?D HEX 

3ATA .'., LL3 VI /6I»» 1199/ 
C 6»«1199 ■ 7673f, • 12BC0 HEX • 1.1709 AT BU 

CAUL CilTBYi JFAIL, IL»DFAL") 
IF(DFAl*.EJO) 38 T8 2 
1 CBNTINoE 
Co.. rtr«E IF EITHER A FaILU«E IS PRESENT BN LIN< 9R FAlLURr "AS 
C C9*RECTED tf^LY F8R 8.\E CYCLE. 
CALL ^ALFt ,"!ST, IL,vhSTW) 
CALL PTHLFi V8L/ IL, VMST*) 
CALL "ALF( vACC, IL«vACC*l 
VACC" • (KCL( Ib)«VhST».)/l»»C;a ♦ VACC* 
CALL PTHLFl VACC, IL, VACC") 
CALL HALFIAHJST, IL, AhSTw) 
CALL PJHLF ( ahCC, IL,ahSTW) 
CALL m«LF[8ACC# ICHACC-) 
SACC" • »HST»»KCL(IB)/2»«11 ♦ 8ACC" 
CALL PTHLFlBACC, lL,8ACCiv) 
TE^Pl . 16JSA/AHST" 
TE^PS • VHSTiv'oKvl/3600 
SBARw . TEiiPl«TEMP2 
CALL PTBY(S»AR, ICSBAR") 
CALL haLF|SACC ICSACC-) 

TE-1P1 ■ ( 16384/AHST»)«(1638*/N)«KCl( IB)»M/LL8N 
SALC- • T.E«PUTFMP2 ♦ SACC* 
CALL PtmlF(SaCC,IL,SaCCw) 
u9 TB 3' 
C... he"E IF ^ fAjLJRE "AS PRESENT FBR MORE THAN BNE CyClF. 
Z CBNTINlE 

CALL MALF( VACC, IL, VACC") 

VPHJ . RL'vUC/NI 

vACC« ■ VACC- ♦ VPhT 

CALL PT-iLF(VACL.lL/VACC") 

PC?T • (RL -^H/'-I )«(l63o»/ R !)»356 /Ll9'. 

CALL n.LF (BACC,IL,BACC») 

iACC- • BACCa ♦ PCeT/f 

CALL PThLF[BACC, ICBACC") 

CALL "ALF (SACC, Ilj SACC-) 

SaCC" • iACC . L'.<SP 

CALL P1H L F(SACC, IL,SACC«) 

C»LL "ALF( *BL,IL<V0L") 

V5L» • V-.<L<. *l (l*t'-.C/KCL( IB) • VPHT . V9L»)/2 • KVi-H)/? 

CALL PTHLP (V9L, IL,v8L«) 

CALL HALF! AHCC, IL.AHCCM 

AHCC« . AhCC. ♦((PCBT/KClIIB) • 512 . AMCC")/? . «PCe>/2 

CALL PTHLF(AHCC,IL«AHCCH) 

IFIRL^r^CEJ'-j) GB TB 3 

TE^Pl • (L^»SP«KV1 )/(RLN<C«254l • (Ll_9\/6*> 

CALL 3ETBYISBAR, Il.SBARk) 

SBAR^ . SBA*. ♦ (TE"P1 - SBAR")/2 • kS d 

CALL PTBY(SBAR, IL,3BAR") 
3 C9NT!,vuE 

RETuR'i 

EMJ 



3 


1 


3 


2 


3 


3 


3 


» 


3 


5 


3 


6 


3 


7 


3 


8 


3 


9 


3 


10 


3 


11 


3 


12 


3 


13 


3 


1* 


3 


15 


3 


16 


3 


17 


3 


18 


3 


19 


3 


20 


3 


21 


3 


22 


3 


23 


3 


2* 


3 


25 


3 


26 


3 


27 


3 


28 


3 


29 


3 


30 


3 


31 


3 


32 


3 


33 


3 


3» 


3 


35 


3 


36 


3 


37 


3 


38 


3 


39 


3 


»0 


3 


M 


3 


»2 


3 


•3 


3 


»« 


3 


»5 


3 


»6 


3 


»7 


3 


»8 


3 


»9 


3 


50 


3 


51 


3 


52 


3 


53 


3 


5» 


3 


55 


3 


56 


3 


57 


3 


58 


3 


59 


3 


63 


3 


61 


3 


62 


3 


63 


3 


A* 


3 


65 


3 


66 


3 


67 


3 


65 


3 


69 


3 


7" 


3 


71 


3 


72 


3 


73 


3 


7» 


3 


75 


3 


76 


3 


77 


3 


78 


3 


79 


3 


»3 


3 


81 


3 


92 


3 


*3 



25 



2.6. 14 ROUTINE H 



ROUTINE! "TNH 



c 


. KTNi 




SJMRBUTINE XTNH 


c 


STNH IS THE CBNTR9i_ 8F ALL 


c 




c 


IM"UT 


c 




c 


OUTPUT 


c 


N8NE 


c 





'H> SUBROUTINES 



INTEGER BIND ,CTABL/0ATE # 0BuF ,FMT8D,hD11 ,HD21 
1 HMAST,PAGNM,PRTFL»PRvD»PTNHC,ShTFL«TIME 
INTEGER MRF 

D1MENSI9N TImE(») ,CTA3L(2?0>» 0BUF[3;> 
1.h3H(12)» HD2K9)/ hD31iS)» hd*1(9) 
C9Mr- 1 eN/HODS/HDli/HD2i 
C8MMBN /HSuBl/ TIME 
C9MM8N/HSU32/BINCCTABL/ IBL 
C9MM0N/HSUeJ3/IBLNK, IT1S 
COMMON /MSJBi,/ IBR,I8PF,1T1N0X, IDCT 
C9MM9N/MESA<i/IBNDX,LCNT, [Rl 
C9MM0N/HBL<1/P*GNM 
C8MM0N/MBLK3/RTNHC 
C9MfBN /BL<6 / F1C 

JMAST 

<MAST 

MP8KY 

HS&15I32) 



»hD31 
T8SU 



»mD»i i 



,8NCS/NBCNT(4!» 



FMARK 

KMAST 

QMAST 

OCNT 

1G1S16A) 



MASTI9) 

EmaST 

ImaST 



MMAST 

H1AST 

• SPACE * 

C8MMSN /BLKU/ 

a lnkdi <6»i»nd9L(69> 

• TBSU 

CBMMBN /BL<12/ 0(138)» DAYMK, JJ, 

• LNKSIiS) , PATNM13N PKTFL / SCnSI<2>« 

• SCCNT<29)/SSF» 

C81MBN /BLK21/ AHIST<138>» CnDISi 0CF# 

• D8w , FMT8D j FSTFL t HLIDF 

• ML1DT(96) , NHOAV , PRC8D < PTN(7»5l 

• S"TFL* SROlS. THRSM, VHISTI138) 

C81M9M /Bc<25/ AHCCU38). CMmaL(17>> C^TaB(258). 

• 3TTA3(258>< DISH7). DMALF(]7)j DM9oE» 

• FLTASl800)» HRF» M8DES, NAI, 

• N9FAL, SB»«(69)» SECFC(»)» SCDFC(»)» v8L(13B) 

C8MM8N /BL<26/ DATE13) > PRVOOI » LPBUF(1B->6I 

ESJIVAlENCEIOBuFII )/LPBUF<l766) ) 

DATA Hu31/' CMi. "ANQE'i 'S Sp.'NCE >»'LAST>,i REPi,i8«T ' 

BATa M041/iTIME'» ' ',iTYPf_i,i Nil >UMBE'» ■* <>' O 
l'E V 

gRANCM T8 RTNH E'fTRT PBINT 

G8 T8 HO 
1 CBNTINuE 

SE T DATE AMJ TIME 

CALL TIMEH(TIME) 

D8 3 1.1.3 

PRVOI I I • HU21 ( 1*2) 

HD2KW2I « T I r.E < I ) 

STORE PREVIOUS DATE AND PUT CURRENT DATE IN HD21 
J CBNTINuE 

HD2H9) • TIMEd.) 

SET BRANCH INDICAT9H 
•&9 T9 <5»7)i IB* 
5 C8NTI.NI.E 



16 


1 


16 


2 


16 


3 


16 


« 


16 


g 


16 


6 


16 


7 


16 


8 


16 


9 


16 


IC 


16 


11 


16 


12 


16 


13 


16 


11 


16 


15 


16 


16 


16 


17 


16 


IS 


16 


19 


16 


25 


16 


21 


16 


22 


16 


23 


16 


21 


16 


25 


16 


26 


16 


57 


16 


28 


16 


29 


16 


IC 


16 


31 


16 


32 


16 


33 


16 


31 


16 


35 


16 


36 


16 


37 


16 


38 


16 


39 


16 


»o 


16 


"1 


16 


»2 


16 


»3 


16 


hi* 


16 


»5 


16 


»6 


16 


»7 


16 


»5 


16 


t9 


16 


51 


16 


51 


16 


5? 


16 


53 


16 


5» 


16 


55 


16 


56 


16 


57 


16 


58 


16 


59 






SAVE T! 1E 8^ START UP 
T9Su • TICE f *) 

I ax • i 

7 C9NTlNuE 

TEST FUR F8KCEO PRINTOUT 

IFIPP9K.Y.NE-&) GB T8 ?0 

IF(PRTFL.NEO) GB T8 20 

SIND.2 

G9 TB 101 
IC C9NTI iuE 

SET BRANCH INDICATOR FOR Ll^KD'T 

BIND • 7 

G8 T8 90 
2'J CBNTINuE 

OEOICATE LINE PRINTER 

IFI IDCT'NE'C) IjB TB 2ul 

1DCT.1 

CALL CAL15 

TEST STATE OF LINE PRINTER 
201 CONTINUE 

CALL TSTLPUER*) 

IF( IERR.EG.1 I G9 TB 10 

IFl IBPf .NE.O) GB TO 25 

CALL 8LT2GI ITI'-DX, IBPF) 

RETURN 
2b CBNTINuE 

Z£R6 PAGE NUMBER AnD LINE LBUNT 

IDCT. j 

PAGNM . 

LCNT . 

BIND ■ BINO ♦ 1 

TEST FbR AnT ENTRIES 

IFI IBL.NE.01 GO T8 30 

BIND • BINO ♦ 1 

38 TB 101 



16 


6J 


16 


61 


16 


62 


16 


63 


16 


6« 


16 


65 


16 


66 


16 


67 


16 


6» 


16 


69 


16 


7? 


16 


7! 


16 


72 


16 


73 


16 


71. 


16 


75 


16 


76 


16 


77 


16 


78 


16 


79 


16 


80 


16 


81 


16 


"2 


16 


83 


16 


B» 


16 


15 


16 


86 


16 


87 


16 


IB 


16 


H9 


16 


90 


16 


11 


16 


92 


16 


93 


16 


9 k 


16 


95 



26 



C CHANGES SINCE LAST REPORT 

C 

3^ C9nti-,uE 

CALL "HEAD 
50 C9NT|nl,E 

IRl • I Rl ♦ 52 
C STBHE jRD LINE BF HEADER • 

I9*"T • 2 

MBYTE • 31 

CALL Sr-ISGl I9PT, !8\DX,LCNT, IR1,H031,\PYTE) 

19 B T • » 

CALL SMSGl I9PT, ISNDx#LCNT, l«l.HD31» NPVTE ) 

1-11 • IRl ♦ S 
C STORE *TH LINE 9F HEADER 

\8TTE • 36 

19PT • 2 

CALL STlSGl 19PT, IBNOXjLCNT. IK 1 ,HD41, NBYTE ) 

I9PT • 1 

CALL STMSGl IOPT.IBNDx.LCNT/ IRI.HDM'NBYTE) 
C INITIALIZE CHANGE TA9LE INDEX 

]=>r, . a 
60 CSNTpJot 

DBUFI1 ) ■ CTAbL( IRb*l I 

D3UFI3I • CTABLI 1^5 + 2 ) 

DBUF(S) • CTABLI IRi*3> 

0BUFI8) * CTABLI IR5+4] 

OiJFOl ■ CTAR.LI IRj»5) 

CALL PT3T(L H »uf,lRl.IT15) 

IS1 ■ I"I ♦ 1 

xBYTE . 36 

I9HT . 5 
Z ST9KL LHANGE INFBSi'ATIBN 

CALL ST1SGI I"PT,IBnDx»LCNT» 1 91 , DBUF, nPYTE ) 
C INCREMENT CHANiiE TABLE (CTAtJL ) INCE» 

1-35 • 1R5 ♦ 5 

IBL . IBL - I 
C TEST AsD BRA\C- IF «9Rt CHANGES 

If I IBL.NE.C ! Ge T? 60 
C PRINT PAuE 

CALL P~NTF|LCNT) 
C SET SERVICE FLAG 

MAST (Hi AST) • i 
C TEST FBR FOHCEU PRINTOUT 

IFIHPOkY.NEO) GB TB 70 

BIND • BIND ♦ 1 

RETURN 
70 CSNTI'JuE 

"POKY • MPSKY - 1 

C SE' branch inoicatbr fbr exit 

BIND • 8 

RETURm 
C THIS IS FIRST ENTRY. SET IRl TB CLEAR lPBUF 
HO CONTINUE 

09 85 IO.1806 

L D BUF| I ) • IBLNK 
85 CONTINUE 

IRl ■ 1 

U9 T8 100 
C NORMAL ENTRY T3 R9UTINE 

90 CONTINUE 
C CLEAR 1ST F8UR LINES 

I9°T . S 

IRl ■ 532 

CALL ST-SGllOPT, IBNDx.LC>IT.IRl,DBUF.NBYTEl 
UO CSNTlNuE 
C INITIALIZE PARAMETERS 

IBNQX . 1 

IR15 • 192 

LCNT • 
C SET INDEX FBR HTNH END ACTION 

RTNhC • C 

101 CONTINUE 

u9 T6(t<102» 10* « 10»» 105.1 05<10 7 ' 108), BIND 

102 CSNTlNuE 

C RE'uRiJ HERE IF PRINTOUT IS SUPPRESSED 
CALL LivDATl IRET) 
IFI IRET.EC1 1 RETURN 
IF I IRET. EC- 1 3) GB T9 ] 8 

103 CSNTI'.oE 

C SE' JBPT FBR FAILURE STATUS PAGE 

J9PT • 1 

CALL STATl JBPT. IRET) 

IFI IRET.EQ.2I uB T9 90 

IF! IREI.5T.0) RETURN 
10<t CSNTlNuE 
C SET JBl-T FBR CBNTRBLLER STATUS PAGE 

uSPT • 2 

CALL STATl jBPT. IRET) 



IFI IRET.EQ.2) ^9 TB 90 
IFI IRET. jT.O) RETURN 

105 C9NTlNuE 

SET JOt^T FBR DETECTBR STATUS PAGE 

u9°T ■ 3 

CALL STATl JBPT. IRET) 

IFI IRET.EG'2) GO TB 90 

IFI IRET. liT.O) RETURN 

106 CSNTlNuE 

SET JOHT FBR SYSTEM STATUS PAGE 

U9PT • <t 

CALL STATl J«PT, IRET) 

IFI IRET.EC.2) o9 TB 90 

IF( IRET.GT.O) RETURN 



16 


<5& 


16 


97 


16 


98 


16 


99 


16 


00 


16 


01 


16 


02 


16 


03 


16 


0» 


16 


?5 


16 


"16 


16 


T7 


16 


)8 


16 


09 


16 


1C 


16 


11 


16 


12 


16 


13 


16 


1* 


16 


1 = 


16 


16 


16 


1 7 


16 


18 


16 


19 


16 


20 


16 


21 


16 1 


?? 


16 1 


23 


16 1 


?* 


16 I 


25 


16 1 


'6 


16 ] 


27 


16 1 


2« 


16 1 


29 


16 I 


*: 


16 I 


31 


16 1 


3? 


16 1 


33 


16 1 


3fa 


16 ] 


35 


16 1 


36 


16 1 


37 


16 1 


38 


16 1 


39 


16 1 


*C 


16 1 


M 


16 1 


12 


16 1 


»3 


16 1 


u fa 


16 1 


»5 


16 1 


»6 


16 1 


»7 


16 1 


te 


16 1 


«9 


16 1 


5; 


16 1 


51 


16 1 


5? 


16 


53 


16 


bfa. 


16 


T s 


16 


58 


16 


57 


16 


5s 


16 


59 


16 


*>~ 


16 


51 


16 


52 


16 


43 


16 


6 fa 


16 


65 


16 


66 


16 


67 


16 


SO 


16 


69 


16 


70 


16 


71 


16 


72 


16 


/3 


16 


7» 


16 


n 


16 


76 


16 


L77 


16 


17B 


16 


79 


16 


ISO 


16 


IM 


16 


1*2 


16 


1*3 



16 


It* 


16 


135 


16 


1*6 


16 


1»7 


16 


1»» 


16 


189 


16 


190 


16 


1"1 


16 


192 


16 


193 


16 


19* 


16 


195 


16 


196 


16 


197 



27 



U'7 CBNTINuE 
C LINK DATA PAGE 

OIL Li>DAT( IRfT) 

IF( IBET.EQ.l) RETURN 
Ijb CBNTINoE 
C BUTPUT *BE TAPE 

CALL Bt.TAPHERW) 
UJ CJMTINuE. 
C 'ESET b R,»NC H INBEx 

hIMD ■ j' 
C SET IMiiEW F9R *>TNI END ACTIBn 

RTNhC • ,1 
C RELEASE LINE PRINTER 

CALL CaLRL 

!9PF»C 

MAST(ir.AST)»0 
C SCHEDULE RT1 I IF MIDNIGHT 

IFIFMTbD'.EU'O) GB TB 120 
C TEST FS" ShUTDBkN 

IFISHTFL.EQO) RETjRN 
123 C9*iTIiJuE 
C SCHEDULE R8UTJNE I 

MASTIlMASTl • 1 

RETURN 

END 



16 


19S 


16 


199 


16 


200 


16 


231 


16 


232 


16 


233 


16 


231. 


16 


235 


16 


236 


16 


237 


16 


238 


16 


239 


16 


210 


16 


211 


16 


212 


16 


213 


16 


21» 


16 


215 


16 


216 


16 


217 


16 


21? 


16 


219 


16 


22r> 


16 


281 



28 



2. 6. 15 SUBROUTINE CAL15 



RBUTlN.t: UU5/STLP 



. • 


CALlb»ST[_P 




1* 


1 




DEF 


LAL15 


It 


? 


• 


T-i|S RfcJTpE INITIATES STflP I/B Fft» It'E PRIMTFjR 


It 


3 




DEF 


STlP 


1* 


t 




REF 


«:ub 


1* 


5 


CALlb 


RES 


Q 


It 


6 




Cal1."5 


STLP 


It 


7 




B 


•15 


It 


8 


SUP 


&En>8,7< 


17 X'0E'»8»wA(>1IL81 


It 


9 




ENL 




It 


10 



29 



2.6. 16 SUBROUTINE CALRL 



RL'UTl ill C»L"L>STRLP 



CALRl/ST-<LP 

DEf CalRl 

This ROUTINE RELEASES LI\E P«INT E B i/e 



oef 




STRLP 


REF 




I-IL9 


RES 







CALli 


5 


STRLP 


b 




•15 


SEN** 


/?» 


x'or 


EM 










30 



15 


1 


15 


2 


15 


3 


15 


it 


15 


5 


15 


6 


15 


7 


15 


B 


15 


9 


IS 


IP 



R?JTl si.'- 



2. 6. 17 SUBROUTINE DECON 



decs.. 

SJBROuT INE DECf'NINuM, ISF. ]VAD 

THIS buRRBOTlNE TAKES * SCALfD BINARY NUMBER AND CONVERTS f A 
„h0LE vulBEX. ThEN CONVERTS ThE NUMBER TO COMPUTER CODE jITh A 
PE^IOJ I I LAST BYTE. 

CONVERTED njhue* IS s»tseiJ |S the FIRST SeVcn BYTFS WITH 

A HrRIODl.) I\ The rlUHTH BVTE. 



jnpuT 
ISF 



3'jTPJT 
IVAL 



SCALED BINARY NUItiFR 

BI wary scale f»ctbr 



CHmvERTej Cnf'PJTtR CODE For" SCALEC BI.jARY number. 
RIGHTMOST CHARACTER IS A PERIOD, 



INT£U£„ CHSET 
RE»L JPER 
OPENSlSi I^AL 
COMMON /dL«.15/ 
. '1NUMF / 

• \ChND < 

• NlSCT . 
. NRESP , 

• CS < 



U> 



HBUFL 

Ncwaa 

NHC1L 

NPATB 

TBSI2 

FS 

SS 



CHSET 

NBMCm 

N*ANP 

NMvEO 

NSTM1 

DS 
•OS . RS 

EQUIVALENCE (IPER.JPFRI 
DATA JPER/'CDu' •/ 
13 ■ U 

Calcote sbjndbff constant an 

\JM ■ lOtNO" ♦ 2«<ISF-1> 
njm • i>un/2*»ISF 

CONVERT dlvARY NUMBER < ; -Ow SCALED TO 
CALL EISRTinuh, IVAL) 

SHIFT TH£ FIRST EIu h T BYTES ONE BYTE T 
PE"*IOO(.) IN THE EIGHTH BYTE. 
DO 3u ,J«1»6 
■, ■ J* I 

CALL StTtfYI IVAL.K.L) 
CALL PTBYI IVAL. J.L) 
33 CBNTlNut 

CALL CitTBYl JPER»»» ITE'P) 
CA.L PTBY(IVAL«7»ITEMPI 
RETURN 
ENJ 



I3PI 

NC*D? 

N'-1LN< 

NPBk 

TBYTE 

NS 

SCS 



ADD »TO BINARY NUMBER 



PC) 



TO COMPUTE" 
THE LE^T 



ME. 
D PLACE 



30 


1 


30 


2 


30 


3 


30 


» 


30 


S 


30 


6 


30 


7 


30 


9 


30 


Q 


30 


10 


30 


11 


30 


la 


30 


13 


30 


i» 


30 


is 


30 


16 


30 


17 


30 


18 


30 


19 


30 


20 


30 


21 


30 


22 


30 


23 


30 


2» 


30 


25 


30 


26 


30 


27 


30 


28 


30 


29 


30 


30 


30 


31 


30 


3? 


3D 


33 


30 


3D 


30 


35 


30 


'<6 


30 


37 


30 


38 


30 


39 


30 


"0 


30 


"1 


30 


»2 


30 


13 


30 


»» 



31 



2.6.18 SUBROUTINE E1SRT 



R8UTBIE: ElS«T 



E'ISRT 

SJSHBur 
THIS Su 

the ca\ 

l>! 'h T 
f-ITh T 

RESULT 
FIRST 

INPUTS 

CHSET 
ChSET 

nbmCh 

NBMCH 
^BMCh 
NUM 

BJTPUTS 
IVAL 

INTEGEw 
OI-IENSI 
C9MM8N 

• MNUMF 

• NCWRD 

• \1SCT 

• NRESP 

• cs 

• QS 
DATA IB 
NJ1 • 1 

as 5 i. 

IVAL(l) 

cb^tinu 

SET I'.I 

L ■ 8 
IFINUM. 
ViJMBER 
BY VALu 

CALL PT 
66 T9 1 
teNTlNL 
PfRFSRr 
| • NUN 
J • NUN 
•T9RE C 
CALL at 
CALL PT 
TEST F6 
IFII.Ei- 

N, 1 . I 

L ■ L - 
GB TB 1 
1UO C8NT1:„ L 
RETURN 



INE ElS^Tlp.OM.IVAL) 

3RBJMNE C8«VCRTS A BINARY NUMBER TB ASCII dR FBCDIC C8DE. 
VERTED '-UMBERS ARE STORED INTB THE ARRAY IVAL BEGINNING 
E E-I«hT BYTE In The array AND ARE ST9RE0 IK REVERSE SRDER 

E K£XT CHARACTER IK THE SEVENTH BYTE AND SB BK. T IE FINAL 
"ILL BE THE CBNVERTED NJ1BER STBReO RIGHT ADJUSTED I k TMf 
IClHT BYTES BF THE AHRiV. 



30 DEFINES ASCII CHARACTER SET. 
FO DEFINES EBCDIC CHARACTER SET. 
16 DEFINES 16-8IT MACHINE. • 
24 DEFINES 24-BIT MACHINE. 
32 DEFINES 32-BIT MACHINE. 
BINARY NUMBER SCALED AT BO. 



• CBKVEP 
ARE BY 

CHSET 
8N IVALU 
/BL«.15/ 



TED CHARACTERS FRBM BINARY NUMBER. 
TES RIGHT ADJUSTED Ik THE ARRAY. 



THF CHARACTERS 



) 

CHSET 

NBmCh 

N-1AKP 
NMvED 

NSTri 

DS 

RS 



HBUFL 

NCW22 

NMCTL 

NPATB 

TBSIZ 

FS 

SS 



IGPI 
MC.D2 

N-LNK 

NPb<» 

TByTE 
NS 

scs 



89 



LNK/' 

KUM 

1j* 

• IBLKK 
E 
TIAL IVAL 

GT.9) G'J 

IS SINQLf 

E 8F CHSE 

UH ♦ CHSE 

BYdVAL.L 

00 

E 

CB <VERSI 
/10 

« 10«! * 
BNVtRTED 
TBY( J,4» I 
BYdVAL.L 
R CBMPLET 

0) liB TB 



BYTE L8CATI9K 



TB 10 
DIGIT. CSKvrRT T8 ASCII BR EBCDIC C8DE DETERMINED 



BN 

CHSET 
DIGIT 
TMP) 
»ITMP) 
I8K 8F C9NVERSIBK. 

loo 



46 


! 


46 


? 


06 


3 


>6 


4 


46 


5 


46 


6 


46 


7 


46 


5 


46 


9 


46 


10 


16 


11 


46 


12 


46 


13 


»6 


14 


46 


15 


46 


16 


46 


17 


46 


18 


46 


19 


46 


20 


46 


21 


06 


22 


06 


23 


46 


24 


46 


25 


16 


26 


46 


27 


46 


28 


46 


29 


06 


30 


46 


31 


♦ 6 


32 


46 


33 


46 


34 


06 


35 


16 


36 


46 


37 


46 


3« 


46 


39 


46 


40 


46 


41 


46 


42 


46 


43 


46 


44 


46 


45 


46 


46 


46 


47 


46 


48 


46 


49 


46 


50 


46 


51 


46 


52 


46 


53 


46 


54 


46 


55 


46 


56 


46 


57 



32 



2.6.19 SUBROUTINE LKD AT 



LKDAT 
SJSHOuTIne UDHIIt'ri 

Isr£(jE> MMAST 

IMTEGE* AHIST,A V SP ,) ,UBuF ,OEL» .HELP t GF» IL/ 6»CC ,9DAY » 

BPC »S*CC ,SDAY »TBUF ,TE«P ^TRT^ ,TVPLS, 
YACC »v(5*v »VhIST/»KAST.TBF»T,TeS!Z»nD12 / *D2» » -*D3P » 
-*Dk2 ,-D52 .-1062 ,"blZ / DELAY, RRTFL. STrf »xTlP 
T HL « DATE , TBjFF,TE~>P, BIND 



! vTEOEr 

- I "ENS [9N HU12I8) 



HD3ai6i 

HD72H9) 



FMARK 

KMAST 

QKAST 

OCNT 

I ul5 i A" I 



D-LP( 171 



HDaaiM 

HD62I7) 
DI1ENSI8N IYALlk)»X<») 
C9"IM9N /BL<6 / FMC 
. "'■'AST i J1AST 

• -HAST , «*1AST 

• SPACE J MPtiKY 
C9~>M8\ /BL<11/ HSB15I32) 

2 L^KDI (6»>»'»C>8l.<69>»N8NCS» NBCNTlk ) 

• TBSu 
CS-'f-b . /BL<12/ 0(1381, DAY»K, JJ, 

• LNKSI(3), HATNr.OI, PRTFL, SCNSII2) 

• SCCNTt29),SSF« 
C31K8, /BL*13/ D^L(259I 

1 FTAB. FTB.JU, "6EIF(69> 

CBlfSN /BL<15/ CHSET , HBUFL 
NBmCh , NCJ22 
NMANP , NMCTL 
NIvED « MPATB 

NST>U , TBSIZ 
DS . FS 

MS , SS 

C31M8N /BLK19/ CC2U29), 0FAILI69). r.BF (17) 

• "1(311 , RA„8C(258> , RA»SP|?58| 

• TSTKT(5l6) 
C9 r M3'J /BL<23/ AVSP, DLDAY(H8) 

1 9*1, SDAY(138), V0AYI138) 
CB^MB'i /BL<23/ ExTGF(9) 

• Nl, 9aCC(138)« RL'JKC, RLN»B 
•TBJFFi 1655) 

«MI5T(t38)J LNDIS, DCF, 
F1T6D , FSTFL 
NHDAY , PRC80 

TW9SH, vHIST(]3o) 
DATE ( 3 1 , PRVDI31 

KYI, LLBN, NN6N 



HCk2<7) 
DBUF ( 1 ) 

. "ASTI91 
t E*AST 
, I-AST 



,-iD52M 5) 
, T I -IE ( k ) 



'IMU1F 
\Ct.RD 
M-SCT 
\KESP 
CS 



NSDayi 1381 



ImIBE 
SACCU3B), 



C3-"i8 N /dL<2k/ 

• DHtl , 

• HUIDTI96) » 
. SHTFL, SRDlS, 

CS-'I-BN /tiKdb/ 

C91M8N/FANDH/ 

C9*lMBN/HSL-dl/TI>-E 

C9-1fB-i /MSul?/ BIND. CTA3LI2P3)' IBL 

CSlMBN/HSUi 3/IBLNK.IT15 

CB'niBN /"Sj06/ KY2,TBFPT,DELa,DELP, NPAjE 

CS'IMBN/ 1ESAJ/IB\DX,LCNT, IRJ 

C3lM9\,/HBLrf.l/P*GN* 

E'JUlY -,_E ,CE(DBLF,LPBUF(1766) ) 

DATA STR/'.H '/ 

DATA Hul2/"JTCS' , < SYS'/'TE" ', 'PERF i , '8RMA' 

DATA HC22/' 9UT',' 8F ',' !»■ i,' HIS' 

DATA Hj32/'LJRRi , 'ENT • » ' CU"J ' < ' LAT I ' , • VE ►» 

DATA M t ,»2/'Tg L E'» 'HANC. 'E ',' Y'.'Bl ' 

.)AIA h^52/'V9L '»• '/'BtC ',' ',' ' 
l< ',' ',' A','V.SP',i. ','TRAV',', 

2 '/ 



E9DC 

IGPI 

\C«D? 

\HLNn 

>Pb» 

TBYTE 

NS 

scs 

RTC 
8JAY(l31i, ?( 

I.NKSP 
TH, VACCII38X 



HLIDF 
PTM7H 



LPBUF( ia„6l 



.MCE • 
■T9RY- 
'BE ' 



•REP9 l 



18 


1 


1* 


? 


IS 


3 


18 


k 


16 


5 


18 


6 


18 


7 


le 


a 


18 


9 


IB 


1C 


18 


11 


18 


12 


18 


13 


18 


1» 


IB 


15 


18 


16 


18 


17 


18 


18 


18 


19 


18 


23 


18 


21 


18 


?? 


18 


23 


18 


2k 


18 


25 


18 


2A 


15 


27 


18 


28 


16 


29 


18 


3: 


18 


31 


18 


32 


18 


33 


18 


3k 


18 


35 


18 


36 


16 


37 


18 


3» 


16 


1 = 


18 


kD 


18 


kl 


18 


k? 


18 


k3 


18 


kk 


18 


k5 


16 


•4 


18 


k7 


18 


kR 


18 


k9 


18 


?T 


18 


SI 


16 


S» 


18 


S3 


18 


5k 


18 


55 


IS 


b6 


IS 


57 


18 


SB 


18 


59 





D»TA n L 62/'LI\ 
DATA HU72/' ( VP 




1 ' ' i ' ' * 

2 '/' '/ 


C 


LL . X'12BC 


C 





1','BER • 

< , ' <PCT' 

' (MPHI i I ) 



I, ' YEH) ', ' 

(SE'»'C/VE> 



12BC0' 9k 1.1709 SCALEO bl6 

LL • LlBN.\n9N 

IERT . o 

IF(NPAuE.NE'O) S8 T8 110 

IMITIA^IZE TAPE BUFFER 

D9 10 liliWSH 

TBUFFi I I . 
10 C9NTlNuE 

v9TNT . o 

JATE A\D TI"E F9R TAPE 

DS 15 j.l»3 

TBUFF ( J) • DATE! J) 
15 C9*TINUE 

TB'JFF(,) . TI1E(k) 

INITIALIZE TAPE INDEX(HW) 

INDEX • 9 

SET iNhlbIT R8UTINE E FLAG 

IHIBE . IhlbE ♦ 1 

IR6 . l 
2; C9NTINuE 

GET NUMBER BF DETECT8RS 8>* LlN< 

MI"1 

IR12 . MI 

CALL HALF(VACC»IR6/ITMP| 

VDAYlKfl) • VDAY(KMl) ♦ V»C0|<«1) 

CALL nALFl YUAY. IR6* ITMX) 

IT^x • ITMX ♦ IT1P 

CALL PTHLF( VDAT. IR6' IT^X) 

SDAYKll) • BDAYIKrl) ♦ 8PC 



18 


63 


18 


61 


18 


6P 


18 


63 


lo 


6k 


18 


65 


18 


66 


18 


67 


16 


68 


16 


69 


18 


7P 


18 


?1 


18 


7? 


18 


73 


16 


7k 


18 


75 


18 


76 


16 


77 


18 


78 


18 


79 


18 


80 


13 


81 


18 


82 


18 


83 


18 


6k 


18 


"5 


18 


86 


18 


87 


16 


88 


18 


89 


18 


90 


18 


91 


18 


92 


18 


93 


18 


9k 



33 



CALL HALF(8ACC» !«&• ITMP) 

IF(ITMP.LT.O) 1TMP.0 

ITIP • ITMP/9 

8PC • ITMP 

I TIP « (ITmP+»)/B 

CALL HALF(6JAY» IR6# ITMx) 

I TIP ■ ITMP ♦ ITMX 

CALL PTHLF(B0AY,1R6»ITMP) 

AVSP a 

TRTM ■ 

SET ACCUMULATED VOLUME 

CALL HALF < VACC» IR6.ITMP) 

bRANCH IF .NO VOLUME 8N LIN* 

IF( IThF.ECO) S8 T8 30 

ITiP • NI-ITMP 

CALL halF(SACC» I«6j ITMX) 

ITE>-P • ( ITMXaKVl )/ITMP 

ITEMP a( ITEMP. LLBN>/2.«10 

avSP .i ITf:MPaNNeN4/2««9 

CALL HALF|sDAY,IR6»ITMP) 

ITIP . ITf.P ♦ AvSP 

CALL PTHLFlSOAV, lR b , ITMP] 

CALL MALFfO< IR6. ITMP) 

I3Iv ■ (KV2»ITMP)/avSP 

TRTM • IDIv'<2«»9) 
30 C8NTlNi,E 

CALL MALF(AMIST, IR6< ITMP] 

ITiP a K««ITMP/?a«l» 

CALL HALF! vHJST, IRbi ITMX) 

TVH L S a ( ITMP»ITMX)/2 

1VPLS a »avACC(KMl)«Kh»ePC/3? 

jT-P a <«.0MC/3? 

CALL "ALF (vACC/]R6»!TMP) 

-VHLS a JT |P ♦ ITMPa, 

TEMP a lABSdvPLS-TVPLS) 

lF(TEMF.LE.DELA) 36 T8 90 

aT-p . DELP # TvPLS/2»«16 

I r (T-. :<.LL.XT1P) 30 T9 90 

\"l'i' a N9TNT ♦ l 

ST8RE l!NK INFBRMMIBN INTO TAPE BUFFER 

IR1C ■ IR6 
*0 CONTINUE 

IR« • INDEX 

INCREMENT TAPE INDEX 

CALL PTMLFlTBUFF. IR*j IR10) 

ST9RE LINK NUMBER 

IR» a 1 Ra> * I 

CALL HALF WACO IR6. ITMP) 

[TIP a *a]T1P 

CALL PTHLF(TBuFFiIR», ITMP) 

CALL PTMLFlTBUFF, IR»*7» ITMP) 

IR» • IR* ♦ 1 

ITIP a (8PC*16)/32 

STORE PERCENT OCCUPANCY 

CALL PTHLF(TBUFF/IR4, ITMP) 

CALL PTHLF(TBUFF»IR»«7< ITMP) 

IR» • IR* ♦ 1 

CALL &tTBY(UFAlL» IR6#ITMP) 

IF! ITMP.EO.O) (jB TO 50 
IR*taH<t»9 

58 T8 <iO 
50 C9NTINUE 

CALL 5ETBY(M8EIF» IR6/ITMP) 

IF( ITMP.EO.O) a* T8 60 

IR* • IR* ♦ 2 

uB TB 65 
60 CBNTINuE 

STORE : F3W QUES 

CALL PTHLFlTBuFF. IRi.,0) 

IR«aH,-U 
STBRE J FOR ST8PS 

CALL PTHLFlTBUFF. IH<*. I 
1R» a IK4 ♦ 1 
63 CSNTlNuE 

ITMP a (AVSP«»)/8 

STORE AVERAliE SPEED 

CALL PTHLF (TBUFFj IR*. ITMP) 

CALL PTHLF (TBUFF, IS4.5, ITMP) 

CALL PTHLF( TBUFF. ]R»*6»0> 
H» ■ IR» ♦ 1 
ITIP • TRTl • 2 

STORE TRAVEL TIME 

CALL PTMLFlTBUFF. IR4, ITMP) 
IR» a IR* ♦ 1 
ITIP a j 
72 CONTI'.ut 

STORE uELAY 

CALL PTHLFl TBUFF/ IR»«C) 
IR» a ;ri> . 5 



IS 


95 


18 


96 


18 


97 


18 


9g 


18 


99 


18 


no 


18 


101 


18 


102 


18 


103 


IS 


10* 


18 


105 


18 


106 


18 


107 


18 


108 


18 


109 


18 


lie 


18 


111 


18 


11? 


18 


113 


18 


m 


18 


115 


18 


116 


18 


117 


18 


118 


18 


119 


18 


ISO 


18 


121 


18 


15? 


18 


123 


IS 


12* 


18 


125 


18 


126 


18 


127 


18 


125 


18 


129 


18 


130 


18 


131 


18 


13? 


18 


133 


18 


13* 


18 


135 


18 


136 


13 


137 


IS 


13S 


18 


139 


18 


1»C 


18 


1»1 


18 


1*2 


18 


1*3 


18 


!»<. 


18 


1»5 


18 


1*6 


18 


1»7 


18 


1*8 


18 


i»9 


18 


150 


lb 


151 


18 


15? 


13 


153 


18 


15* 


1 * 


155 


18 


156 


18 


157 


18 


15? 


18 


159 


18 


16? 


18 


161 


18 


16? 


18 


163 


18 


16k 


18 


165 


18 


166 


18 


167 


18 


168 


IS 


169 


18 


WO 


18 


l'l 


IS 


17? 


18 


173 


18 


17» 


18 


175 


18 


176 


18 


177 


18 


178 


18 


179 


18 


1"0 


18 


1*1 


18 


18? 


18 


1"3 



8 J CBNTIr.iA 

INDEX a IP* 

ITMP . 

CALL PTMLFl VACC. IR 6 . ITMP) 
CALL Pl"LF|SACC, IRo< IMP) 
CALL PT-iLF (BACL, IRt>» ITMP) 
IR6 a IRb ♦ 1 
IF( IRb.LE.NMLNK) 3b TB 20 
06 T8 1U0 
90 CO'-TlNuE 

IRlD i I»6 ♦ 1 

IF LIN* IS IN TOLERANCE SET SIUN BIT 8F LINK N8 , 





18 


11* 




18 


185 




18 


186 




18 


1«7 




18 


11S 




18 


189 




18 


190 




18 


191 




18 


19? 




IB 


193 




IS 


1=". 


THAT IS 


18 


1*5 



34 



C PUT BN TAPE 

IT • 1 

CALL PTBI I I "MO/ 1 7» 1 »0 ) 

59 T9 nO 
100 CSMTlMuE 
C RESET I ^-<t cjl T K8UTINE C FL»0 

M1BE ■ IHJBE - 1 

BIND • BIND ♦ 2 
C SCHEDULE RBUTINf * 

MAST(»rAST> • 1 

IF (PFmL.ES«3) CjB TB ISO 
C T^ST STATE »F PRINTER 

CALL TSTLPl 1ERW) 

IF( lERH.EO'l ) JB TB 180 

B|10 • BIND - 1 
C 9JTPUT LINK OATA TB Ll N E PtKTEBlFSq l' s KS THAT ABE BUT BF 
C TBLERAnCE) 

IFIN8TNT.NEO) SB TB 105 

b|ND • HIND * 1 

MASTIHI AST) • 2 

IE*T . 1 

CALL PkNTf (LCNTl 

BE TORN 
105 CSNTInuE 

BIND ■ BIND • 1 
110 CBNTlNuE 

BIND • BIND ♦ 2 
C TEST STATE OF PRINTER 

CALL TSTLP(IERR) 

IF( IERRtEO.l ) »8 TB 18U 

BIND • 3IN0 • 2 

IR1 a IR1 ♦ »B 

I9PT ■ 2 

N8TTE • 30 
C STBRE 1ST LINE BF HEADER 

CALL ST'"ISG(I9PT,IBNDx,LCNT(lRl,HDl?,rvPYTEI 
C S<IP LINE 

I9"T . * 

CALL STISGl IBPT,|BnDx,LCnT,IR1»HD12,nBYTE) 

IR1 ■ IR1 ♦ 69 
C STBRE 2ND PART BF 2ND LINE 

I9RT . 2 

MBYTE • 2? 

CALL ST^SGl I OPT, I BNDX.LCNT, I Rl , nu32, NBYTE I 
C SKIP LINE 

ISPT • * 

CALL S1M3QI 18PT,1BNDX,LCNT,Iri,HD32/NBYTE) 

IR1 • IR1 ♦ 7 
C STBRE nEADE* I' BUFFER 

I9PT • 3 

.?' rt • 2* 

CALL ST'aGl IBPT, IB\Cx,lCnt, I C] , HD22, nBYTE I 
C S*IP LINE 

I9"T . <• 

CALL ST'lSGc IBPT, 15 .Dx.LCNTj 1R1 , Ht 22, NbYTE 1 

I ■» 1 . 1R1 ♦ 6 
C STBRE 1ST P«ST BF jRJ LINE 

NB"TE . if, 

I9«T ■ 3 

CALL ST^SGl IBPT, IB'.Dx.LCNT. I 9] , HUtl, NPTTE ) 

IR1 . I Hi . 16 
C STBRE 2ND PART BF jRj LINE 

IBPT . 2 

NBTTE • 72 

CALL STISGl IBPT, IBnOX.LCNT. IR1 ,MDS2» NBYTE I 

191 • I«l ♦ 5 
C STORE 1ST PART BF »Th LINE 

I8PT • 3 

NBTTE • 28 

CALL STHSGl IBPT, IBNDx.LCNT, 1R1, HD62. NBTTE I 

1»1 • 1R1 ♦ 1* 
C STORE 2NU PART BF 1.TH LINE 

IBPT • 2 

MBYTE . 75 

CALL ST V SG( IBPT, IBnDa.LCNT, 1 Bl .HD72, NRYTE 1 
C SKIP LINE 

I3PT • « 

CALL ST^SGl IBPT, IBNDX.LCnT, IPi , HD72, KBYTE 1 

I»3 • TBFPT 
120 CSNTlNoE 
C IjET LINK NJ^BEK 

CALL HALF(T0UFF,IR5,IRU) 

IFI IRll'LT.l ) LB TB 170 

NBTNT . NBTNT • 1 
C InCRE^lNT TAPE BUFFER PBINTER 

IR6 ■ IR11 

[R5 • IKS ♦ 1 
C C-i'NGt T tdCDIC CBDE 

CALL EiSRT( Ull, IVAL) 
C PBSITJpN CnAhALTERS 

CALL 5bYTC( I VAL(1),1 ) 

I'll • Iva l !2) 

CALL if TdY C H9 E lF,i Hfc ,iTHP) 

IF ( ITiip.EG.O) u8 TB 13J 
C ^AKf SlA'nK AN <•) 

CALL 3t.TUY ( STR,l,!THP| 

C'uL PTdY( IHH,», IT^P] 
C TESTMF -5AT DETECTS* SN LI*«. 

CALL 3tTdY ( UFAlL.IR6< ITHP) 

IF! IT~lp.E9.U1 jB TB 130 
C PAKE (») A.< (HI 

CALL 3ETeV(STR,SjIT1P| 

C«LL PT3Y( I«ll«*» IT"P) 
13i CSMI'iuE 
C STBRE LINK NUMBER 



35 



18 


196 


18 


197 


18 


19S 


18 


199 


Is 


200 


18 


201 


IS 


202 


18 


203 


18 


2.1A 


18 


205 


IS 


206 


18 


237 


1* 


20S 


18 


gno 


18 


210 


18 


211 


18 


21? 


18 


213 


18 


et» 


18 


215 


18 


216 


18 


217 


18 


21? 


18 


219 


18 


220 


IB 


221 


18 


222 


18 


223 


18 


2?» 


18 


225 


18 


226 


IS 


227 


18 


22? 


18 


229 


18 


230 


18 


231 


18 


23? 


18 


233 


18 


23» 


18 


235 


18 


236 


Id 


237 


18 


238 


13 


23? 


18 


240 


18 


2»1 


18 


2»? 


18 


2»3 


18 


24* 


18 


2*5 


IS 


246 


IS 


2«7 


18 


2»? 


18 


249 


Id 


25r 


18 


251 


IS 


25? 


18 


253 


18 


254 


13 


25? 


IS 


256 


18 


257 


18 


25? 


18 


259 


18 


260 


18 


261 


18 


262 


18 


263 


18 


264 


IS 


265 


18 


266 


18 


247 


18 


26? 


lfi 


269 


18 


2': 


18 


27! 


18 


27? 


18 


2/3 


18 


274 


u 


275 


Id 


276 


18 


2/7 


18 


27? 


IS 


?7o 


18 


2"- 


IS 


281 


18 


2*2 


18 


283 


18 


281, 


18 


285 


18 


286 


18 


287 


18 


288 


Id 


2«9 


18 


290 


15 


2"1 


18 


292 


18 


293 


18 


P9« 


18 


295 


18 


296 


18 


2*7 


18 


298 


lM 


2^9 



3BJFI11 ■ 1^11 

CALL -<alF( ,«ISr,IR6. IT-IP) 

[TIP . (]T l"*] 1/2 

CHAV jt TO EBCOIO 

CALL ElSRTI ITMP, I j»L) 

5 TMR E .-IiTM^V, i'?L(»t^l 

DdJPU) • IVJLI?) 



CAUL --LFiAiIST, IRo. ITnP) 

I T->P • lIT-""«135*lb38IH/»«»15 

CA.L ElSRTI I Tl-w. IVAL) 
C ST-iRE h-IST. ^CCtPE^CE'-T) 

jSuF(<,) . IVAL(J) 
C CjET VEHICLES"/"-* (VEM) 

CALL HALF<TWUFF,IRi.ITi-,P) 

I- 1 ) • 1 45 ♦ 1 

CALL ElSRTI ITlP, IVAL) 

^■--JF II!) ■ I VA|_<2> 
C oET PFkCENT OCCUPANCY 

CAuL h„LF(T«UFF , IRS, IT-IP) 

I-)5 > ]Rb ♦ 1 
C CONVERT T8 EflCUIC C83F 

CALL ElSRTiITMPjIVAL) 

DBUM13) • 1JALI2I 
C ST8RE tLAN«.S> MR QuEuE 

DbJF(lo) • IttL'-< 

IR6 • IRS ♦ 2 

JB T8 1 3» 
13c CS^TINuE 
C ST^RE aLANKS FL'R STBPS 

IR5 • I»5 ♦ 3 

3bJMlo) ■ IBL'-K 
13* CSMTI-'UE 

33UFI19) . ISLM< 
C uET A VlL RAGt SPEFU 

CALL haLF( r-uFF, IRS, IRH ) 

IRs .195+1 

CALL ElSRTI IR1 i, IVAL) 

3BJFI22) • IvAL(2) 
C GET TRAVEL TI1E 

CALL HALFlTBUFF, IRS, IT1P) 

IRS ■ IR5 ♦ 1 
C SET SCALE FACTPR 

15 ■ 5 

CALL JEC3M ITMP, 15. IvAL) 
C ST9R CoR« CU" M9E TRAVEL T!"E I SEC/VEhi 

33JF(2<) • IVALI1) 

JHJFijd) • IVAL(S) 

IRS • IRS ♦ 5 
C 3T5RE. tiLAN<S 6« CU'?RE^T CU ' -13E DELAY ( SEC/ j£h) 

DBJF(?o) • IBL'^K 
C SET L P ODEC SPALE Ll^ES 

CALL PTBYIL^BjFjIRUITIS) 

HI . IRI + 8 

I9PT • 2 

\B»TE • lie 

CALL ST1SG( I8PT,lB\DX,LC-iT, I 9\ . DBUF , N.RVTE ) 
C TEST F3» M8-<E LINES 

IF (N9T .T .LE. C1G8T8 1*0 
C TEST Fo^ FjLL '•'AGE 

IF(LC<T.E!3.b3) Qi T9 150 

(.9 T9 183 
1*C- C9-'TI.MuE 

bimd ■ binj ♦ i 

C INITIALIZE 'APE BUFF P8HTER 

TBFFT . 1 
\PAGE . J 
ol T8 160 
ISU C9^TI.-uL 

Td'PT • IRS 
\PAGE « .PAlJF 4 l 
14J CBNTIKoE 

CALL Pt.-<TF(LC\T) 
C SE' FL*3 T-J Cause SCETORN TV 99UTINE That CALLrC RT 

■ ASTIm: AST I • i 
ILiT > 1 
R^ HjRn 
17j CSNTI,\i.l 

IRS • IRS ♦ '. ? 

u e ts is; 

1», C9'-TI\.jE 
IE-IT. 1_. 

-t TUH\ 

EVJ 



18 


301 


It 


302 


IS 


303 


18 


30k 


IS 


305 


lh 


306 


Is 


3-7 



IS 


3->R 


18 


309 


18 


310 


In 


311 


18 


31? 


18 


313 


16 


31* 


18 


315 


18 


316 


IS 


ilJ 


le 


31? 


18 


31? 


18 


330 


18 


321 


16 


322 


IS 


323 


18 


32* 


18 


325 


18 


326 


1? 


327 


18 


32? 


18 


321 


IS 


330 


13 


331 


18 


33? 


IS 


333 


18 


331. 


18 


3 35 


la 


336 


18 


337 


18 


338 


18 


339 


18 


3»0 


1? 


3*1 


18 


3»2 


18 


3*3 


18 


34<t 


18 


3»5 


1 = 


3»6 


la 


317 


18 


3»8 


18 


349 


18 


350 


IS 


351 


18 


35? 


18 


353 


18 


35* 


18 


355 


18 


356 


IS 


357 


13 


358 


IS 


359 


18 


360 


18 


361 


18 


36? 


18 


363 


18 


364 


18 


365 


18 


366 


18 


367 


IS 


365 


18 


36 9 


18 


370 


18 


3/1 


IS 


375 


18 


373 


18 


37» 


IS 


375 


Is 


376 


13 


377 


18 


37« 


18 


379 


18 


3X0 


18 


381 


18 


3«? 


18 


3*3 



36 



2.6.20 SUBROUTINE MHE AD 



SJ-s«90T I -.1 " l "C»D 

THIS <itluT!<t LMOS 1»E "AIS he:*DL« 1ST? LPftUF. 

INTEUES -I0U.HJ21 
I^ESSI?-- hJ]1 Ii2).hD21I9> 

.'jiFd', />iL<2&/ C-ATEOl » PWV3I3I < LPbLf I I »;f> I 

C'KS ;/-CDS/-ICll»MC2l 

:-JiH9,\/rtSlJd3/loLNK, 1 T lb 

Ci1r.8\/^S»u/lui\CX,LCST, I SI 

DATA M^H/i uT>/'CS 1'*'5 MII|'NUTE>,' STA'.iTuS l#'A\D '.'PE«F' 
. I BfllA • *' l NCE '/ 'HEPS' j'RT i/ 

JA1A H.J21/' OA'.'TE '»' '»' ',' '/' '»• TI-l'.'E ' 

1 ' '/ 

SP'tE ., Ll^ES 

CALL PTdV(L"djf ,1. I T IS 1 

5T9RE ;ST lI'-E 9F hEaDE* 

HI . ,* 

IS"T • 2 

>.rt»TE . 18 

CALL SMSGl l»PT,!SsDx.LENT»llil»HDll#NBVTE) 

S<IP Ll'-E 

I9HT ■ <t 

CALL SI^SGlIIPTjIBsUX.LCNT.IRl.MDll'SBVTE) 

HI • 1«J . »9 

STShE e«-0 LlSE 9F HEADER 

I9"T • 2 

v^Tt • J6 

CALL ST!"-SG( I"PT,I3SUX«LCST, I 51 . HQ2 j / MjYTE ) 

SKIP LI ^E 

I9PT . 4 

CALL SI ''SGI I8PT, 13 .Dx,LCsT,l»l,HD2l,\FiYTE) 

RETlR . 

• VJ 



32 


1 


32 


? 


32 


3 


32 


*t 


3? 


5 


32 


6 


32 


7 


32 


8 


32 


<t 


32 


13 


32 


11 


32 


I? 


32 


1 3 


32 


11 


32 


15 


32 


16 


32 


17 


32 


1? 


32 


1? 


32 


iS 


32 


?1 


32 


2? 


32 


23 


32 


2» 


32 


25 


32 


it 


32 


27 


32 


28 


32 


?9 


32 


3C 


32 


31 


32 


3? 


32 


33 



37 



2.6.21 SUBROUTINE OUTAP 



MUTI'.E! ?JTAP 




• « 


BUTaP 






Off 


BljTAP 




»£!• 


^lASK 




»EF 


HKF 




REF 


TSTAP 




"FF 


ShTFlQ 




RE* 


TBJFF15 




REF 


TBYTE 




RES 


1 


I 


RES 


1 




DATA 





SHTFL 


EQu 


SHTFLO 


TBUFF 


E3u 


TBUFF15 


PT"iPl 


RES 


1 


BUTAP 


RES 






L«»l» 


•15 




ST.,1» 


I 




AI.15 


1 




ST., 15 


PTMPi 




LI, 6 


c 




ST., 6 


•I 




MT.,1 


\RPT 




L-,b 


HRF 




BEZ 


• ♦3 




RD,0 







BC*,2 


CALLTAPE 




Uw,lo 


RECDIMj 




BEZ 


MEXIT 




II, 1C 







ST., 10 


«ecoins 




LI,0 


Qaiwritebfi 




sib»o 


X'EO' 




B 


HEAIT 


CALLTAPE 


RES 


Q 




LI, 6 


1 




ST. ,6 


•I 




BA L ,15 


TSTAP 




B 


"EXIT 




LI, 6 


e 




ST. ,6 


• I 




L»,1C 


SmTFl 




BEZ 


t*b 




LI, 10 


G 




ST., 10 


«ECDIMj 




L«,10 


HAS*. 2 




Ann, 10 


.»PITAPE*1 




LI,0 


Da<wRITAP£) 




Sle,0 


/'LO' 




1T.,1 


RECDI^c 


hEMI 


WES 


o 




B 


•PT^Pl 




HBu'.O 


3 


»R|TAPE 


GEM8j24 


l.BA(TBUFF) 




CiE'M,-3l21 


CTBYTE 


nKITLBF 


CjE\,(J,2» 
DATA 


Xi73>,0 




REC01NG 


DATA 






SET ERR8R C8ND Ts n 



NB, BRANCH 

HAy/E "E BEEN RECt)R2IS5 

NB, EXIT 

CLEAR RECORDING FLAG 

ADDRESS 9F IBP C81MAN0 DBUBLE. 

-BROS F8R E8F. 

8UTPUT BUFFER 



SET ERRBK o 1, RESET IF N? 

CHECH "C8N0ITI8N 9F TAPE 
EXIT • ERROR RETuRN 
RESET ERR*)* C8ND TB o 



ADDRESS BF IBP CJM"lA\iD DBuBLE- 

«9PDS F8R *RITE 

BUTPUT E8F 

SET REC8RDIN0 FLAG 



12 
12 
12 
12 

12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
IS 
12 
12 
13 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
ERRBR 12 
12 
12 
12 
12 
12 
12 
12 
<2 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 



9 
9 

10 

u 

12 
13 

I* 
IS 
H 
17 
IS 
19 
20 
21 
2? 
23 
20 
25 
26 
27 
26 
29 
30 
31 
1? 
33 
34 
35 
36 
37 
38 
39 



»8 
49 
50 
51 
5? 
53 
54 
55 
56 
57 
58 
59 



HBL<2 
NRPT 



OStCT 

DATA 

E.liO 



12 


60 


12 


61 


12 


62 



38 



2.6.22 SUBROUTINE OUT2G 



B8UTI«EI BUT2G 



• 8uT2(j 






19 


1 


5JBR8UTINE 8JT2GUI, 19PFI 






19 


2 


CB^MBN /G2C"NT/ «*RK6FS(12»), IB ( IS* ) » IE 


A(3l)»EMT. •■! i ii '-.1-1 


19 


3 


1 CURPNI31) 






19 


« 


CB1M8N /BL<6 / FMC » FMARK 


, 


MAST(9) , 


19 


5 


• 1"AST , JMAST , KMAST 


, 


E1AST , 


19 


6 


• HiAST , W1AST , QMAST 


i 


I-AST , 


19 


7 


• S^ACt / MPBKY , QCNT 






19 


8 


IMTE.SEK HfAST 






19 


9 


CB^MBN /BLK7/ 1AB3(16)» INTH(31>< INT; 


(31), *CTCI17), K3PH(31)j 


19 


10 


• ISTUPF 






19 


11 


cb-imbn /bl^i*/ Ci_£ n s . oTlng 


, 


CML^G i 


19 


1? 


. OJMYl, 0UfY2, CNTLN(372),ENTFL<5)» 






19 


13 


• «CL<17>, <CTF!l7), KCSFI17), 






19 


11 


• NIVARlSl) i SEr-iS<(8) , VRINTH23J , 


L<PT«(fc»] 


19 


15 


CB^MBN /BLK18/ CICTF(g) , CT9DF,g] , 


STBYD(R) , 


19 


16 


• CBNTBI62) i CIIH8F(31) , CYCLCoi) . 


ENINTU96) , 


19 


17 


• E^BFF(3l) * 6GGT(12») , GAWTPfSl) , 


GB.TPI31) , 


19 


18 


• GLA6CH2*) / GGGGllZ*) < GUABC<12») ' 


I\TDJ(»96) , 


19 


19 


. SSSS(]2»> , TKKI31) , «RK8F(3l) 




19 


20 


DPENSlBN IFHDI7), IFHDK21 )/ lFHD2<21 ), 


ITBLI21), INU-)!*) 


19 


?1 


DATA 1SPCE/' '/ 






19 


22 


DATA IFHD/iUTCSi, i I NT ' , < E«Se I . ' CT I B i , 


in BF' 


iFSETi.iS •/ 


19 


23 


DATA IFH01/' INTE'j '"SEC", 'TIBN'» ' A 


, • PHA 


, iSE ',i Bi, • PHAi 


19 


24 


1 . 'SE ', < C'f ' PMA'jlSE i/' '. 


CYCL-. 


E i, lSu3Ml#'ET«ie>, 


19 


25 


2 'UK ',< C»B'»'E UR'i'BUP '/ 






19 


26 


DATA IFHD2/' N', HJMBE', 'R ',' 


, I9FFS 


,'ET i,i i.iBFFSi 


19 


27 


1 /'ET 1,1 ', 'BFFS'i'ET i,l L i, 


ENGTi, 


H i,i Ni,"UMBE"i 


19 


Z5 


2 '« 1,1 Mi/ tU M BE'» 'P. '/ 






19 


29 


IBNDXM 






19 


30 


I3PT.5 






19 


31 


LCNT.l 






19 


3? 


LNOEX.7220 






19 


33 


CALL ST^SGl I9PT, I8NDx,LCNT,LNDEX, IFH C 


.NBYT) 




19 


3D 


IBPT.3 






19 


35 


lN'JEx.53 






19 


36 


NBYT.26 






19 


37 


CALL ST^SGl I9PT,IBNDX,LCNT,LV0EX, IFm 


,NBYT) 




19 


3S 


CALL TIMEH(l-MOM) 






19 


39 


LNJEX. U N0EX*15 






19 


10 


I9°T.2 






19 


»1 


NBU«16 






19 


»2 


CALL ST^ISGI 18PT, I BNCX, LCNT, L\DEX, INUM, 


VBYT) 




19 


»3 


I9PT.4 






19 


«t» 


CALL ST^SGl I9PT, I9\DX,LCNT,LNDEX, IFM D 


,NBYT) 




19 


»5 


IB^T^ 






19 


16 


NBYT»84 






19 


»7 


LNL>EX.uNDEx*30 






19 


"8 


CALL ST--ISG(I9PT,IBNDX»LCNT,LNDEX, IFH C] 


.SBYT) 




19 


»9 


LMJEX.lNDE»*30 






19 


50 


CALL STMSG<I8PT, IB.-lPX,LCNT,L>*DEX, IF mo; 


,MBYT) 




19 


51 


I9»T»» 






19 


52 


CALL ST"SG(I9PT, I 8NDX,LCNT, LNDEX, IFHO 


,NBYT ) 




19 


53 


I - I I 






19 


bit 


ICLK'l 






19 


55 


b C8MTIIMJE 

IT (I .ST. 12t> US TB 95 






19 


56 






19 


57 


CALL 3t T BY< INTH,1, ICC) 






19 


5R 


IF (ICL .Eu- 0) G3 TB 110 






19 


59 


09 19 j»l,e* 






19 


60 


10 ITWLUl'lSPtE 






19 


61 


CALL ElSRTt I, INUM) 






19 


62 


IT5LI2)«INJ M <2) 






19 


63 


09 20 „«1,J 






19 


64 


jj'»'l 1 -1 1*0 






19 


65 


CALL i t TBY(19,jJ, 10) 






19 


66 


ID'ILl/e 






19 


67 


«.3.C j.l)»l 






19 


68 


CALL ElS-iTI 10, l\J~i) 






19 


69 


IT3LU>»INj"(Z> 






19 


70 


■iJ CBNTJNjE 






19 


71 


CALL GtTBYlCYCLOI, !C) 






19 


72 


ID"XCL( 1C+1 1/2 






19 


73 


CALL ElSRTl ID,lNU*> 






19 


7« 


IT»L(i»)»InUM(E) 






19 


75 


CALL Gc.T3Y( IEA, I, IC) 






19 


76 


C»LL ElSRTt IC»I\UM| 






19 


77 


IT«L(17)«IWUM(2) 






19 


78 


CALL SETBYtCGRPN, I, IC) 






19 


79 


CALL ElSRTl IC, 1KJ1) 






19 


so 


1TOLI2 .)•! -O v .(£i) 






19 


M 


I9*T.? 






19 


"? 


NB»T»tJt 






19 


"3 


wNDEx. t NDE«*30 






19 


84 


CALL bTlSGl l9PT,I9NDx,LC .T.LNQEX, ITBl 


,NBYT ) 




19 


"5 


IFII.LT. 12*) G8 T9 100 






19 


86 


9b II • 1 






19 


"7 


I9-F.1 






19 




GB T8 iOO 






19 


*9 


100 CBNTINjE 






19 


90 


1CLK ■ ICL< ♦ 1 






19 


91 


110 1-1*1 






19 


92 


IF ( I Ci_< "LT. »5) GB TB 05 






l^ 


q 3 


II • I 






19 


■li* 


I9"F.J 






19 


^5 


200 CALL P-.\TF(LCNT) 






19 


s 6 


,-,AST(n.-.AST)«2 






19 


97 


RE'uRn 






19 


98 


EVJ 






19 


99 



39 



2.6.23 SUBROUTINE PRNTF 



RBUTl »E ! PRvTF 



PRNTF 

DtF PRNTF 

su u rbutine tb service li^e printer 



MlL CyNamICALL* SET UP 
R7 10ST CB''TAI\ THE NU~I 





REF 


LPeuF 




REE 


ElSRT 




R£F 


ENJACTm.ENDACTI 




REF 


SAVRo 




REF 


«IL9 


PNU~1 


RES 


1 


VAL 


RES 


4 


SAVR16 


RES 


16 




68uND 


8 


LPC8M 


RES 


106 


PRINTF 


SEN. 8.2* 


> 5»Ba,LPBUF) 




GEn.8«2« 


' *'26>.l33 




RES 


1 


1 


RES 


1 




DATA 





PT1P1 


RES 


1 


LSLNT 


DATA 





PRNTF 


RES 


o 




L".l» 


•15 




STk..1i 


I 




M.15 


1 




ST., 15 


PTWP1 




L-.7 


•I 




L*»10 


LSCNT 




CI. 10 


53 




bE 


X.Fl. 




LI.lo 




STd/ID 


lpbuf 




ST-.7 


LSCNT 




Li, 7 


RTNrtC 


* 


L»< 10 


IENDACT.7 




ST.. 10 


SI»LP»3 




Lv„7 


LSCNT 




L-.ll 


7 




Ai.n 


-1 




"I* 11 


133 




LD.12 


prIntF 




E9K.13 


• X'SuQCCOOC 




a*,i2 


11 




ST„,12 


LPCB:--2,7 




AI.7 


■1 




BEZ 


STRTBUT 




AI.ll 


-133 




LD.12 


PRINTF 




A,, 12 


11 




ST^.l? 


LPCBM-2,7 




fc'j,;.7 


imH 


STXTBUl 


R£S 


C 



neCCESSArY C8" v AND LIST TB PRlNTj 
bER BF LINES T8 PRI\T(R7 • I) 



C8NVERTED EBCDIC NUiBE^ ^ILL 
BE RETURNED IN SeC8N"5 *9RD BF 
THIS ARRAY 



53 LINES PER PAGE 
PRINT. WITH F6R1*T 



TEST IF FULL PA5F LAST TIME 

YES. D9MT M81E PAPER 
NB, H9ME PAPER 

SAvE CURRELT LINE BUTPuT 

GET INDEX FBR PR9PER E'iD ACT H 

ADDRESS 

GET ADDRESS 

STBRE IN CAL1 FPT 

REST9RE W7 

CBi-PDTE END BF D*T» ADRES9 



GET CBM^AND D9UBlE«BRD 
CLEAR CB^ANO CWAIn AND SrT 
END INTERRUPT CB'.DITIBiS 
ADD euFFLR 8FFSET 
STBRE IN C6mm,nD LIST 
DECREMENT LINE CSUNT 
BNLV BNE PRINT LINE 

GET CBM1AND D9uBLE'«fi'D 
ADD BUFFER BFFSET 
STBRE IN CbMMAND LIST 
LBBP BAC«. 

INCREMENT PAGE Nu"BER 



13 


1 


13 


? 


13 


3 


13 


it 


LI 13 


5 


13 


6 


13 


7 


13 


R 


13 


9 


13 


10 


13 


11 


13 


12 


13 


13 


13 


U 


13 


15 


13 


16 


13 


17 


13 


15 


13 


19 


13 


2C 


13 


21 


13 


22 


13 


23 


13 


2» 


13 


25 


13 


26 


13 


27 


13 


28 


13 


29 


13 


3D 


13 


31 


13 


3? 


13 


33 


13 


3k 


13 


35 


13 


36 


13 


37 


JN 13 


33 


13 


39 


13 


T 


13 


"1 


13 


»? 


13 


»3 


13 


»» 


13 


"5 


13 


»6 


13 


»7 


13 


»» 


13 


»9 


13 


5f 


13 


51 


13 


52 


13 


53 


13 


54 


13 


55 


13 


56 


13 


57 


13 


58 


13 


59 



iENUACT 
mBL<1 



~BLKJ 
RTN"C 



LCI 

STl-.O 

Ln.3 

L*.ll 
ST»,U 

LI. 1» 

BAl.15 

GEs.8,2* 

G£f..8.2» 

LCI 

fi J 

L n , 1 1 

ST. .11 

RE3 

CAuliS 
B 

BEN. 8/2' 



SAVRlfc 

SAVR t . 

PAGNM 

PNU* 

2 

ElSRT 



DATA 

Data 

DATA 

CSECT 

DATA 

USECT 

DATA 

ENU 



SAVR16 

VAL+1 

LPdUF+31 

SIBLP 
• PT-:P1 

X' \?_< , /.a (M; LB 1 
x'CO'al 
LPC9^ 
EnDAL'Th 
EnDACTh.enDaCTi 



SET UP CALL T9 F9RTRAN R9UTINE 



ST6RE FAbN.-i IN P.U'I AS CALL 
TB ElSRT "ILL DESTR9Y JNPUT 



STBRE CONVERTED 
PRINT BUfFER 
ISSUE SI8 



,U~iPER T'TB 



13 


60 


13 


61 


13 


6? 


13 


63 


13 


61. 


13 


65 


13 


66 


13 


67 


13 


68 


13 


69 


13 


70 


13 


71 


13 


72 


13 


73 


13 


71 


13 


75 


13 


76 


13 


77 


13 


7« 


13 


79 


13 


80 


13 


81 


13 


82 


13 


83 


13 


8» 


13 


85 



40 



2.6.24 SUBROUTINE SBYTC 



»3UTI"E' SBVTC 

C • SbYTl 

iJ^ReuII <E SBYTClA. ■i) 
Ct"i T-tIS SOJTT't PEWFBPM3 4 CI«CJLAP. ShIFT 9N f bYTES jF TATA. 
C A • FIW'jT B'TE BF AN « b.YTE AKPAY, YUST Be 8N *SRD BiU^OARY. 
C N • »a. OF cjYTES TB SHIM TB THf LEFT. If N IS NEGATIVE THE 
C SmIf-1 Is TB The RIG"*. .» ,UE. * .LE. <t 

IMECjE« A, f 

3 1 "ENS I 8'. A^), d(,l 

Bill • A ("2 > 

Bl2) ■ All) 

B(3) . A(2) 

bit) • All) 

11 . a '♦ 5 

I? . Il . 7 

* • l 

3? i i . iuie 

(.ALL 3LT9Y(H.I,J) 
CAUL PT-3Y (A,<,J| 
.. ■ k . 1 
1 CBNTlMuE 
=iE Tu«'J 
ENU 



»7 
»7 


1 


17 


3 


*7 


it 


»7 


5 


♦ 7 


6 


«7 


7 


17 


P 


»7 


9 


»7 


10 


• 7 


11 


»7 


1? 


17 


13 


»7 


1 » 


07 


15 


»7 


16 


»7 


17 


<t7 


1? 


»7 


1" 


17 


20 


«7 


21 


»7 


2? 



41 



2.6.25 SUBROUTINE STAT 



RBUTInE: STAT 



• STAT 

Su^RSuTIME STAT( J9PT, IRETI 

INTEGER CIC»Y,CICEF/C!CTF,CTBDF»HSB , PAGNT . S1S<T 

INTEGER AC<F ,9!ND , C ICCT,CI CSF, CL INF , C^ALF* C11»l, JBuF »DIS , 

1 DrALF,D1BDE»FLTA3,FTYPE,H8LD ,PATNM,PKEY , iCDFC, SECFC/ 

2 SFAlL»SvlNC,TI1CH,HH*sT,HRF 

INTEGER FHDl.FHD2,C8iHO,0ETH0,SHDl,SH';2,SHL'3,HlSD,3FF9\,EBC»'D 
3I1ENSI8N CTabli22j> 
3PENSIBN UBJFC1 ), 1VAL14) 

DIiENSIBN FTYPE(5),ACKF(2),FHDK8)«Ft-D2(12)/C8NHD(8).DETHD(7) 
1. S«D 1 ( 7 > , SHD2 ( 1 « ) « ShD3 ( 1 9 ) # h I SD ( 3 > , BFFB \ ( 2 ) , E SCiD ( 4 ) 

C81f<8N/1ESAU/!BNDX,LCNT, I Rl 
C81MBN/HBLK1/PAGN1 
CBim8N/HSUB2/BIND,CT*BL» 1 BL 
C81MBN/HSUB3/IBLNK, IT15 

C81M8N /HSUB5/ LCHAR,PKEV<SfSKT/SVINO 
C81M8N /BLK6 / F1C , FMARK 

• 11AST i J1AST , KMAST 
. H-IAST , «1AST , OMAST 

• SPACE > MPBKY , QCNT 
C91MBN /BLKB/ ii, NDLNK(6>9)| TT3, 

. TT7 

C81M8N /BLKlO/ CICSCH6) , CJCSYiB) 

2 CTLSY(<t),CNSEC(3l)iCNTZN(l9l,LM<CN(fc9l, 

• TIMCH(»I , ZSI (32) 
CB1M8N /8L«U/ HSB15I32) , I015(fc4l 

2 LNKDI (64|,NDBL(69> ,N8NCS,N»CNTU), 
TBSU 



1AST(9) 
•EiAST 
IMAST 



CTlSCiim 



CBimBn /BUK12/ D11J8), DAYwK, 

• LNKSI (3) , PATNMI3) , 

• SCCNT(29),SSFw 
CBiMBM /BLK18/ 



PRTFL 



MNU1F 

• NtwRD , 

• MSCT , 

• NRESP , 
. cs , 

• as , 

CB11BN /3LK17/ 

• IA0VP,8| , 

• INTNrtOl) , 

• STBTK32), TI 
C81M8N /dL«.18/ 

. CBNTBi62) , 

• E^BFFl31 ) , 

• 3L.ABCU24) , 

• SSSSl 12*) , 
CB1MBN /BLK25/ AHCC1138) 

• DTTAB(2bg| , UISI17) 

• FL.TAB(8U0) , HRf 

• S9FA L , 3BAR(69)/ SECFC(t) 
^BlMBN /WLK26/ DATU3 



CHSET 
nbmCh 

MANP 
NMi/ED 
NSTM1 

DS 
RS 
ADvNH(8) , 

CNTDRU24) , 
ITML(ii) , 

EB(32)# QVBM69) 
CICTF(8) . , 
CUR8FU1) , 

GGGT(124> , 

5300(12*) . 

(31) 



MBUFL 
NC*22 
NMCTL 
NPATB 
TBSU 
FS 

ss 

CICBP(8) 

CNTNf- 
INT8UI32) 



SCNSI (?) 

1GPI 

NC»D2 

NMLNk 

NPb4 

TBYTE 

NS 

SCS 

CPAB3I3) 

IL2 
<L2 



. < CT8DF|8| , STBYjif) 
. CYClCOI) , EMVT U"»t, I 
, GA«TP|?1 I , 0B.TPI31 ) 
, GUABCH24I . IMDJ(496) 
, *S«8F(31) 

CiMAL(17)» CiTAB(25«), 
, D"ALF(17) . JiBDE 
, M8DES , NAI 
SC0FCI4), VBLH38) 
, PRVDI3) » LPBUF ( 1,836) 



CelK8N/BLK2»/AOR( lk),P]A(6><RC^(2l»HSfl(14l#AP9*ll(l<.).CPN9U 
. 1ARS( o »0) , H1API2) , JCNT . <CNT 

• l^ClB , -HSBF , CU8C.K , «M|\F 
. ilNCT , TAo(3) , N8NBI8) 

EUJI VAlE.mCE (CItEF,CICBP(2) ) 

EOOI VALENCE (DBUF i LPBUF (1766) ) 

EQUIVAlENCE(CICSF(1>»CTBDF(2>) 



17 


1 


17 


2 


17 


3 


17 


« 


17 


5 


17 


6 


17 


7 


17 


S 


17 


9 


17 


10 


17 


11 


17 


12 


17 


13 


17 


14 


17 


15 


17 


16 


17 


17 


17 


18 


17 


19 


17 


2? 


17 


?1 


17 


2? 


17 


23 


17 


?<* 


17 


23 


17 


2ft 


17 


27 


17 


28 


17 


29 


17 


35 


17 


31 


17 


32 


17 


33 


17 


3» 


17 


3^ 


17 


36 


17 


37 


17 


J8 


17 


39 


17 


**? 


17 


"1 


17 


4? 


17 


»3 


17 


HI* 


17 


»5 


17 


»6 


17 


17 


17 


»8 


17 


»9 


17 


50 


17 


= 1 


17 


5? 


17 


33 


17 


34 


17 


S5 


17 


Sft 


17 


S7 


17 


SB 


17 


■59 



Eau I VALENCE (H8UDI1 )»HSB(2) ] 
EUUIVALE'JCLICtiA L F(i),ClCTF(2, , 
DATA FTYPE/'CS^', 'DET ','LBvM' 
DAT* ALKF/' N '*' Y '/ 
DATA FhD1/> ••!,!« UT','CS Fi, 
DATA FmD2/'TYPE' , l NI'.'UfBF'. 
) l-l I, I DA", I ' , I AC< '/ 

DATA CBMD/'«.» ','UTCS',' C9N' 



t/ 



, lllTCS'f ' 
'BRY ', • 
, I 8N'/ 



DET' 



'TBD 



'BDET' 


, 'BC8" 


/ 


AIlUi, 
R ., 


•RE St, 


i TATU' 
> T I ME • 


"TRBL' 


,'LER 


, 'STAT 


'ECTfl 


,'R ST 


, ' ATUS 


'TRSP 


/ 





DATA D£ThD/'»»« ' 

DATA MlSU/lHISTl, 

DAT* BFFaN/' SFF' 

DAT* EdCMD/'STBY' 

DATA LFT1,LET2/'FSC1 <t 'DO '/ 

DAT* ShD1/'».. ','UTCS',' SYS'.'TEM .,'ST*T','US •' 

DAT* ShDg/'UESl i , 'RED ',' ALT', 'UAL i,< PAi.iTTER' 
1'C IN',' ',' ',' ', 'FAIL', 'URFS'/ 

DATA SmQ3/'SECT', ' IBM ',' TH>»'E <,' M9D','E ' 
1' M,'0> '»' '/• 8P','ER '»' ',' '/' 
28N','T •/ 

IRET • J 

BRANCk TB kE.-JUESTED STATUS fAlLUQE CHECK 

09 TB (b»7'.»l<tC»190)< J8PT 

FAILURE STATUS PAGE 

5 C9NTINUE 
|R* • NBFAL 

GET NUfBER MIlURES IN FLTAB 
IF(MMJMF.ST«N'BFAL) G3 TB 10 
SET NBFAL • MAX 
IR6 • liNuMF 
10 CBNTINbE 

BRANCH IF T M IS FIRST PAGE BF FAIuRES T? Be BuTPUT 
IF(PKEY.EO.O) j9 TB 20 
RESET PASE KEY 



17 


ho 


17 


M 


17 


62 


17 


f>3 


, '• '/ 17 


hH 


,iKBST'i 17 


^5 


17 


!>6 


', ••• '17 


t>7 


17 


bf 


'/ 17 


*S 


17 


70 


17 


71 


17 


72 


17 


73 


/ 17 


7» 


,' CI', 17 


/5 


17 


'ft 


,'E ',17 


77 


'»' C 17 


78 


17 


79 


17 


10 


17 


M 


17. 


H2 


17 


■3 


17 


8* 


17 


85 


17 


86 


17 


87 


17 


■S8 


17 


89 


17 


90 


17 


■M 


17 


9? 


17 


93 


17 


91. 


17 


95 



42 



P<EY ■ PKEy • 1 
C NBT 1ST PAGE S3 SET PREvlBUS INDEX 

25 C9NT|'JuE 
t BRANC" If rlBRE FAILURES Tm HfPBKT 

|F( IXh.^E.O) G9 T9 3i 
C \9 "S»F FA1LJRES. INCR£*F\r BRANCH IV3F.X 

uro • bind ♦ i 

C o=!*MCH Trt CSNTRfiLLt" Rl ATUS < CST A T ) 

C9 T6 7'J 
3^ C9^TI\uE 

inPAQN".Eu«;i CALL MHEAJ 

CALL PTBYIL^OF, IR1» IT15) 

1R1 • 1R1 . 55 

I9"T ■ ? 

VjTTE . 31 

CA^-L ST 1SU( I9PT,IB'>DX»LC'1T'» IR1 .FmBj, NRYTE ) 

li-^T . 1 

L".LL ST < "SG(I9PT,I'S\UXjLCNT» lRl#FHOl»NBVTE) 
C ST9RE SEC6*U HEADER IN BUFFER 

1*1 • IR1 » 16 

I3PT • E 

MBYTE • 18 

CALL STMSGl I9PTi I8NCX.LCNT. ICl/FHDe,\BYTEI 

I3HT • * 

CALL STMSGI 11PT, IBNDx.LCNT, [SI , FHD?, K.BYTE ) 

IRl • -•( r-fe- 1 ) 
•K C9NTINuE 
C P8SITI-'.' BjFFE-t PBINTER 

1*1 ■ 1 K 1 ♦ *t> 

I ■ F|_TAB< 1*6*1 ) 
C o'_ 1 1ST «9KU flt F4JLJRE 

CALL o- TdY( !.?< ITMP) 

CALL PT-iY( j, 4, 1T1P) 

2i-JFl 1 l • FI YPE( J-i) 

CALL -i»LF(!»2.ITlo, 

CALL E)SRT( IT»P, IVAL) 

v. ■ 1 

CALL S=YTC( IVAL.M 

DBUF<3) . IV4LI?) 
C CiFT ?'<:, FAILURE "BRD 

C FLTAoi !■?<,♦?) • XHHM 

L ■ FLTA-!< 1X6*2) 
C FLTABl IRo*3) • u xMM 

M ■ FLTAJI 1*6*3) 
C FLTABl l*B*») ■ MXD3 

\ ■ FLTAdl I«6f>> 

CALL GETdY(L»?, ITMP) 

CALL PTBYILXiW IT M P) 

CALL oETdY|L.3, ITMP) 

CALL PTBY(i.X,?, ITMP) 

CALL GETBY(L#»» ITMp) 

CALL PTBY(lX,3, ITMP) 

CALL oET8Y(",l» ITMP) 

CALL PT3Y(LX.k, ITMP) 
C 3BJFI6I • MHMM 

0BUFI6I ■ LX 

IT"P ■ [3LN* 

CALL PTBY(L«»1< ITMP) 

CALL UtTBY("i,3, IT"P) 

CALL PTBYILX.2. ITMP) 

CALL 3ETBY(M.», ITMP) 

CALL PTBY(L".3» ITMP) 

CALL t>ETHY(N< 1> ITMp| 

CALL PTdY(LX»i(# |!"P] 
C DBJFUl • (*0)MxM 

UBUF(B) • L« 

ITMP . [Blnk 

CALL PT3Y(L«»1» ITMP) 

CALL "TiY( u X»2. ITMP) 

CALL JtToY(N.3»ITMP| 

CALL "TBY(lXj3» ITMP) 

C'.L JtTsjVlM.lt, ITMP) 

CALL n '( L i.„|TV) 
C UBJF (II ■ !»:■) (*0IDD 

L;BJF ill ■ U 
C GEI AC- VJ*_t3G<_ C90E 

CALL Gl T MY| Iil» ITMP) 

3BJf (1*1 • AC«f ( ITMP*l 1 

No'TE ■ *8 
C ST1RE IN OUTPUT BUFFER 

I3PT • S 

CALL ST"-SG( IDPT, Im .Ox.LCNT, I«l ,0BUF# \RYTE ) 
C ".SvE T_- .E»I F-lL'J-iE 

IR«. . |H* . « 

IF(lC -1 • iT.b^i r,8 Te 50 
CA„L "IlflL^'ut . IRI< IT15) 
C BRANCH IF ALL FaILi^ES NUT D9NE 



IFI IRt.GE.i ) SO T9 »; 
BI-'D ■ 5 1 NO ♦ i 

5L CSMTlNot 

C RE f 9R'- NJC3E» JF FAILURES LEFT TH PReCF^SS 

IRt ■ l !R6»« 1 /t 

SVINU . IR„ 
C SET ERrOR <tY F9R NEXT PASS 

P<EY ■ P<EY + 1 
6C C3NTI\uE 
C SET REIURN m pt j b \ TO RBUTI'^E T U AT CALLFO h 

IRS.T . I 

CALL PI.STF(LCNT) 
C SET SERVICE BIT IN MAST 



17 


96 


17 


^7 


17 


98 


17 


99 


17 


100 


17 


101 


17 


10? 


17 


103 


17 


n* 


17 


105 


17 


r.i6 


17 


107 


17 


108 


17 


109 


17 


lie 


17 


111 


17 


11? 


17 


113 


17 


11* 


17 


115 


17 


116 


17 


117 


17 


11R 


17 


119 


17 


1HC 


17 


1?1 


17 


15? 


17 


1?3 


17 


1?* 


17 


1?5 


17 


136 


17 


137 


17 


1?? 


17 


1?9 


17 


HO 


17 


131 


17 


13? 


17 


n? 


17 


I'i* 


17 


135 


17 


136 


17 


137 


17 


13S 


17 


139 


17 


1*3 


17 


1»1 


17 


1*3 


17 


1-3 


17 


1»» 


17 


1*5 


17 


1»6 


17 


117 


17 


1*8 


17 


loo 


17 


150 


17 


151 


17 


15? 


17 


153 


17 


15* 


17 


155 


17 


156 


17 


157 


17 


118 


17 


15? 


17 


160 


17 


161 


17 


16? 


17 


1*3 


17 


16* 


17 


165 


17 


166 


17 


167 


17 


l*." 


17 


169 


17 


170 


17 


17! 


17 


17P 


17 


173 


17 


174 


17 


175 


17 


1/6 


17 


177 


17 


17? 


17 


179 


17 


1" 


17 


I»l 


17 


IB? 


17 


1H3 



17 


IS* 


17 


185 


17 


1"6 


17 


187 


17 


1»S 


17 


189 


17 


190 


17 


I'M 


17 


19? 


17 


193 


17 


19, 


17 


195 


17 


196 



43 



>*EXT 15 MIM 



MAST(Hl.AST) • 2 
I RET . 1 
C RETURN T8 EXECUTIVE ROUTINE 

SETURN 

C CBNTRBLLER STATUS PAGE 
C 

70 C9NTIHUE 

c ^lset page key res failure status 

KEY • HI 
C UST IF MAIM hEAl-Ek BUT YET 

IF CPAGNM.EJ.}) CALL MHEAO 

CALL PTSY( L FBUF,IR1»IT15) 

IR1 ■ I«l ♦ 55 

I9*T • 2 

MBYTE • 30 

CALL ST"SG( 19PT, IBmCx.lCMT. I R l , C9NH3, \«YTE ) 

I9»T • 1 

CALL STlSGl IBpT.IBNDx.LCNT, IB], C8NM0,NFJYTE ) 

IR1 • 1*1 * 12 
C INITIALIZE 

I • 1 

H« • 1 

H6 ■ 

H12 • 1 

IB*AN ■ 1 
4J CSNTHlE 

HID • 
C SET I«5 PBH FAILURE 

C»LL GeTBY(LET1,1,ITmP) 

CALL PTbY( [K9>ti ITMP) 

IX • H12 

CALL Gt TBI (C 1ALF. I*. IBIT. 1 ) 

c test controlled paileo 

IP! HIT. JT.C) ue TB 90 
C SET IRg P9P STANDBY 

C«LL JeTBV(LETl»2,H9l 
C TEST FtlR STANDBY 

CALL GtTBIc H 9LD, IX. IBIT.l | 
C IP hBLj » ', SEE IP CONTROLLER EXISTS 

tF{ HIT.EO.O) 1)9 TB 120 
C TEST CIC SELECTED 

CALL UHIiLJCSF.Ia.IBIT.i) 

IF I HIT.EQ.O) 1)6 TB 110 
C SET FBL ACTIVE CIC 

C*LL if Hy ( LETi,3, IK3) 

CALL JtTalttlCET, Ix. IBIT.l) 
C TEST ALT1VE CIC 

IPC IblT.NE.O) 08 To 9n 

C IV'IHITEB CIC 

CALL 3t TiY(LFTl,», H9) 

a; csnti <a 

C GET Ctt .T-iBLLfR NUMl'IR AND CONVERT T9 EE'COIC AND ADO I> STATUS CBDE 
> ■ Hi2 

CALL ElS-iT,*, HAL) 
<- ■ IVAL<2)*?*«8 ♦ H9 
3BUFC I.6»! I • « 

H» ■ H6 + e 

CLHE • CLHE ♦ J 

lC*AR • lChA^ ♦ i 
C TEST EvJ 9F Ll'E 

IP(LCmaR.LT.O) G8 TB ( 11 3. 1 40 > . I bRAN 
133 C9NTINlE 

LChaR • -H 

MBYTE • H6«* 

I3»T • 2 

CALL ST"3G( HPT, I BmCX.LCmT, IBfj DbUP, KBYTE ) 

CALL PTBYIL^BUP. Hi. IT15) 

HI ■ HI » 12 

H* « L 

09 TB ( 110.140). I8RAN 
113 CBNTp.uE 
C A3VAMCt CO .HOLLER MJ^BER 

H12 • H12 ♦ 1 

IPC Hli.jT.NMCTi.1 GB TB 133 

G9 TB «0 
ISO C9NTlMuE 
C SU M BER 9P MON-ExISTANT C9NTRPLLPRS 

IC9N . M9NCS 
12b CBNTHuE 

JCBN • IC9\ ♦ 1 

CALL GfcToY(M9CMT. JCBM, ITMP) 
C MATCH, 39 NOT BuTPuT 

IPC HH.ECITMP'l 36 TB 110 

ICON . IC8'n • 1 

IPC IC6S.GT.0) 09 T» 125 
C LEGITIMATE CONTROLLER 

GB TO J3 
130 CBVTI'.uE 
C TEST F.'R PA*TIA L LHE 

IPCH6.ME.cl GO TB ICO 

dIMD • BIND ♦ 1 

ITMp . CLHE 

CLIME . 

IPC IT t-.GT.3l •)« To 60 
C SET HF.T TB CALL RTNhi 

HET . 2 

SETU-J-. 



DETFCTO* STATUS PAGE 

H3 CBMTI.lE 

TEST MAIN HEADER 9uT YET. 
IPCPAGvLEJO) CALL .ihEad 
CALL PTBYC HrluF, HI. IT15) 
HI ■ HI ♦ 53 



197 
198 
199 
200 
201 
202 
803 
2"i* 
205 
206 
207 
208 
209 
210 
211 
212 
213 
21* 
215 
216 
217 
215 
219 
220 
221 
222 
223 
22* 
225 
226 
227 
228 
229 
230 
231 
232 
233 
23* 
235 
236 
237 
238 
239 
2*0 
2*1 
2*2 
2*3 
2*» 
2*5 
e»e 
2*7 
2*8 
2*9 
250 
251 
2b? 
2^3 
2 1 -* 
255 
256 
257 
259 
259 
260 
241 
26? 
263 
26* 
265 
266 
267 
269 
269 
2'0 
271 
2/2 
273 
27* 
275 
276 
277 
278 
279 
2*0 
2«1 
29? 
293 
29* 
2»5 
296 
2«7 
298 
2«9 
290 
2*1 
29? 
2^3 
29* 
295 
296 
2)7 
298 
2>9 
300 
301 
30? 



44 



IBPT a 2 17 313 

NBYTE • 28 17 3i» 

OIL ST"lSGl I9PT, IB *D*,LCNT, It)l .DETHD,\bYTE 1 17 305 

1B"T a 4 17 306 

CALL ST*SG< IBPT, IBNDX,LCNT, I Rl . DETHD, MBYTE > 17 3^7 



191 • INI ♦ 12 
C SE ' MAS< INUFX 

I ■ 1 
C SET r.9k3 InDEX 

I9» ■ 1 
C SET STORE I"«DEX 

1 5b • 3 
C SET DETECTOR NUMBER 

!312 ■ 1 

I3RAN • 2 
15j CSNTT.oE 

WO ■ S 
C SET IRs FOR DETECTbW FAILURE 

CALL 3ET8V1LET2,1,IK9) 

IX • IK12 

CALL liETBIIDiALF.Ix.IBITO) 

c branch if oetectbn failure 

IF( IblT.NE.C) jB TO 90 

c set in* fbr cbmm failure 

CALL GET8Y|LET1,3,IR9> 

CALL GlTdl (CMMAL« IX. ISIT.O) 
C TEST FbK C6"iM fAlUJ^E 

IFI IBIT.ME-C) HI TB 93 

CALL GETJY(LET1,2. I R9 ) 
C TEST DETECTOR STANDBY 

CALL GtTBIlDIS, IX.IBIT.C) 

IF(IBIT.ME.O) Gfl TB 90 
I6j C9NTINuE 
C ADVANCE DETECTOR Nu M 8ER 

1912 • IR12 ♦ 1 
C TEST CREATE* T«AN MAXIMUM 

IFI IB.12.LE.NMVED! GB TB 1 5 J 
170 CONTINUE 
C TEST FOR PARTIA L L l\ t ^AIT^G TB BE STB4FD 

IFI IRfc.NE.^) GU T9 100 

BIND a BIND ♦ 1 

IT1P a CLlNt 

ClINE a 

IF( 1T1F.3T.0I <jB TB 60 
C SET IRET TB CALL 3TNM1 

I9ET a 2 

RETURN 
C 
C SYSTEM STATUS PAGE 

c 

180 CSNTlNuE 

SMSKT a 
C TEST IF MAIN HEADER BUT YET 

IFIPAGNM.EJ.O) CALL MHEAO 

CALL PTWY( L t>8UF, 191, IT15) 

191 a ]91 ♦ 52 

NBYTt a 26 

I9PT • 2 

CALL STMSGlIBPT, IBNDX,LCNT, 19] , SHDl, NeYTF I 

19PT a * 
, CALL STMSGl IBPT,I8NDX,LCNT. 191, SHDl, NRYTE) 

[91 a IRl * ?7 
C oET 8FF 3R ON CBDE 

HISDI3I a UfFBN|H9F+l ) 

ISIt^T a 2 

.BYTE a 12 

CALL ST"SG( I9PT,Ifct^Dx,LCNT, 131 ,H1SD» NRYTE 1 

I3°T a » 

CALL STMSGI I9PT,I9.0x,LCNT, I 91 ,H [SC, KBYTE ) 

191 a IR] . »2 

I9RT a 2 

N9YTE a 56 

CALL STMSGlIBPT, I9jDX,LCNT,Ipi,SHD2,NPYTE | 

CALL PTBY( L PBUF,IR1,IT15) 

IR1 ■ IRl ♦ 27 

NBYTE a 73 

CALL ST 1SG( IBPT, IBNDx,LC\T, 191 . SHD3, KBYTE ) 

I9"T a 4 

CALL STMSGlIBPT, I B'»DX,LCNT, IP1.SH03.NBYTEI 

196 a l 
190 CBNTlNuE 

IR11 ■ 196 

CALL E1SRT(IR11,IVAL) 

N a 1 

CALL ScYTCl IVAL.N) 

DBJFI1I a IVALI2) 
C GET TIME 9F CHANGE FOR SECTI9N 

3BUF (3) a TIMCH(I9 6 ) 
C GET DESIRED "SUE 

CALL 3ETBY<UM8CE«I96, ITMP) 

DBUFI5) a EBCMUl ITMP+1 1 
C GET ACTUAL *9DE 

CALL GtT8Y(l9DES, IR6, ITMP| 

DBUFI7laEBC' , D( ITMP+1 I 
C GET PATTERN NUMBER 

CALL j£TBY|RATNM, I(, 6 , JT1P) 

ITMP . [TMP ♦ 1 

CALL ElSRTl ITMP, IvALl 

DBUFI9I a IVALI2) 

CKCT a 

IR3 a J 

c get number »f cic frbm rbutkf k 



17 


308 


17 


309 


17 


310 


17 


311 


17 


312 


17 


313 


17 


31» 


17 


315 


17 


316 


17 


317 


17 


318 


17 


319 


17 


3?r. 


17 


321 


17 


i?2 


17 


323 


17 


3?» 


17 


325 


17 


326 


17 


327 


17 


3?8 


17 


329 


IT 


330 


17 


331 


17 


33? 


17 


333 


17 


33* 


17 


335 


17 


336 


17 


337 


17 


338 


17 


339 


17 


3*0 


17 


3«1 


17 


3»? 


17 


3*3 


17 


3»» 


17 


3*5 


17 


346 


17 


347 


17 


348 


17 


349 


17 


350 


17 


351 


17 


3d? 


17 


353 


17 


354 


17 


355 


17 


356 


17 


357 


17 


358 


17 


359 


17 


360 


17 


361 


17 


36? 


17 


363 


17 


364 


17 


365 


17 


366 


17 


367 


17 


368 


17 


369 


17 


370 


17 


371 


17 


37? 


17 


373 


17 


37a 


17 


3/5 


17 


376 


17 


377 


17 


378 


17 


379 


17 


3?-; 


17 


381 


17 


38? 


17 


383 


17 


38a 


17 


385 


17 


386 


17 


387 


17 


388 


17 


389 


17 


390 


17 


391 


17 


39? 


17 


393 


17 


39« 


17 


39* 


17 


3"6 


17 


397 


17 


398 


17 


399 


17 


too 


17 


.01 


17 


40? 


17 


a-13 


17 


»04 



45 



C*LL ClCl I»3«S W S<T,CICCT) 

CALL E1S«T(CICCT, HAL) 

DBOF(lc) • lvAL(2) 

C£T NUfiSER 9F UETECT9R FAILURES 

K ■ SCoFC(I*6) 

CALL ElSRT(K, I»*L) 

\ • 1 

CALL SdTTCl IVAL.N] 

DaJF(lo) • IVALI2] 

&ET NUnBEH 3F C9NTR9LLER F«Uil«E5 

< • SECFC(I"6) 

CALL EiS>)T(<. IVAL) 

\ ■ I 

CALL SfVTCdvAL.M 

DSJFllt) ■ IVAL{2) 

1*1 ■ |R1 ♦ 28 

If p T . g 

'.3TTE. . 72 

CALL 51 'SC>( I1PT, I3'jC»,LCNT, 1 Rl . 3BJ> , «..bvte 1 

I"" » • 

CALL ST^SGlISPT.^Dx.LCNT, Ul . OBUF , s HYTE 1 

I*S ■ 1Kb ♦ 1 

TEST F-.l 

IF( I«o.LE- -1SCT) yi T9 19C 

b]\D ■ •>]•*} * 1 

CALL PniNTF(LCNT) 

RETLRAi Ttf EXECUTIVE R9UINE 



MET • 1 17 <•}? 

RETURN. 17 »33 

; vj 17 "I* 



17 


• ?5 


1 7 


<06 


17 


• 37 


17 


»:s 


17 


»C9 


17 


»ir 


17 


• 11 


17 


"1? 


17 


• 13 


17 


-' it 


17 


•15 


17 


"1 * 


17 


• ! 7 


17 


• 1 * 


17 


• 19 


17 


•23 


17 


• ? 1 


17 


»»> 


17 


• 23 


17 


• a* 


17 


• ?5 


17 


• 26 


17 


• 27 


17 


»?? 


17 


• 29 


17 


*•?■) 


17 


•31 



46 



2.6.26 SUBROUTIN E STMSG 



RBjTl «E : 



c 


• 


STISj 












33 


1 






SJ^RBuTI IE ST-iSG( I6PT,I3Npx, L 


IT, LNOEX. * 


ESSG, 


NtJYTE ) 






33 


? 


c 




ST^Su -iTBRlS ".ESSAuE INT8 LH3UF 












33 


3 


c 




THIS ROUTINE AlSB *IlL SPACE 6NE Ll N E BR 


luac 


L B faUF 


*ITH 


BLANKS. 


33 


A 


c 
















33 


5 


c 




I\"0T 












33 


6 


c 




IBPT ■ 1 NUHCSF.R OF BYTES IN ^ESSAGf IS 


BbTAINfD FRBr- FIRST BYTE 


i) 


7 


c 




IN >'1£SSAGE. 












33 


a 


£ 




■ 2 N UrtBE-l BF BYTES Iv t 


ESSAiiF IS 


IN CALLIV, 


SEOUE 


:NCE- 


33 


9 


c 




. 3 SNL'Y A PARTIAL LINE 


IS T8 8E 


BUTPUT. LCI 


P AND 


IB»DX ARF 


?3 


10 


c 




N8T INCREMENTED. 












33 


11 


c 




IBPT • * SPACE »KE LINE 












33 


IE 


c 




IBPT ■ 5 SET LP81.F TO BLANKS 












33 


13 


c 




IBNu*. Bu> InJEx. 












33 


1* 


c 




LCNT ■ LINE 'CflUNT. 












33 


15 


c 




LNDtA" LPBUF I>nDF.X, 












33 


16 


c 




LPBUF • BuTPUT dUFFER- 












33 


17 


c 




itSSj. CONTAINS MESSAGE T« BE 


BUTPuT. 










33 


18 


c 




NBYTti Nyidfn BF BYTES TB 3E 


BUTPUT. 










33 


19 


c 
















33 


20 


c 




bjtput 












33 


21 


c 




LCNT • CuXR^NT LINE C8UI> T 












33 


22 


c 




IBNCx« CU*HENT BUFinOEX 












33 


S3 


c 




LN0Ea« CURRENT lpbuf index 












33 


2* 


c 




OI^ENSIBN «ESS3( 1) 












33 
33 


25 
26 






CB^NBf. /ilKSb/ DATEOI 


PRVDI3I 




LPBUF(18 




33 


27 






CBIMBN/HSUoS/IbLNKj IT15 












33 


28 






oS T8 ( 3u»10. 20. 60,70). I8PT 












33 


29 




13 


CBNTInuE 

J • 1 

GB TS tO 












33 
33 

33 


JO 
31 
3? 




2 J 


Ce-'TI <uE 

LCNT • LCNT . 1 

J3NDX . lBNUx • 133 

J ■ 1 

ti9 TB .»j 












33 
33 
33 
33 
33 


33 
31 
35 
36 
37 




30 


CBNTINuE 

J ■ 2 

CALL bf TBYI-iESSG.l/NBYTE) 












33 
33 

33 


38 
39 

«0 




to 


CBNTINuE 

OB 50 I«1»n»YTE 

CALL aETBY(n£S3G»J/ITE1P) 

CALL PTBY(LP3uF,LND£x, ITE"P) 

uNDLX • LNDtX ♦ 1 

J ■ J ♦ 1 












33 
33 
33 
33 
33 
33 


M 

«2 
»3 

*5 
16 




50 


CBNTINuE 

lCNT • LCNT ♦ 1 
IBNOx • IBNUX ♦ 133 
06 TB 100 












33 
33 

33 
33 


»7 
»8 
*9 
50 


c 


60 


SPACE BNE LINE 

CBNTINUE 

CALL PTBY( L PBUF,LN0EX ( IT15) 

lCNT • LCNT ♦ 1 












33 
33 
33 

33 


51 
5? 
53 

51 


c 


7i 


INITIALIZE LPflUF INDEX T9 START 

IBNDX . IB .OX ♦ 133 

CALL PTBY( t PBUF .LNOEx, IT15) 

GS TB 100 

CBNTINuE 


8F NrxT 


LINE. 








33 
33 
33 
33 
33 


55 
56 
3 7 
58 
59 


c 


SO 
100 

150 


SET LPbUF TB BLANKS 

LMAX • LNDE*/* ♦ 1 

06 80 u'lfL-'AX 

LPBuF(u) ■ I3LNK 

CBNTINuE 

LNJEx . 1 

CBNTINuE 

IF( I8PT.EQ.3) >,6 TB 150 

LNJEX . IBmOx 

CSNTInuF 

RETURN 

iNJ 












33 

33 

33 
33 

33 
33 
33 
33 
33 
33 
33 
33 


60 

61 
6? 
63 

6<4 

65 

66 
67 
68 
69 
70 
71 



47 



2.6.27 SUBROUTINE TIMEH 



rsjtI'.e: tmeh 



SJBR8uT!'-E TIMtHdfaUF) 

TllS Si^RSjTINE TAKES A|.Pm»NjhERIC DaTA(DATE.YEAR.h8\'T-', ,AY,H8UR 
AVJ •'IxJrtl 9BT»IMt.C Fa")* » CAL SESVKe T9 READ THE R5" CL9C< AND 
-E^ICCS The JATA I >TB IduF . 

1^"UT 



SUTPuT 
I BUFF 



T*B BYTES REPRESENTING YEAR Is 9 T H AND 1'iTh 9YTES. 
THREE BYTES REPRESENTING m 8 >. th in jnO, 3RD and »'» BYTES 
T«8 BYTES REPRESENTING DAY I -l 4 T" AND 7Th ByTESi 
T«8 BYTES REPRESENTING H8UR Is 1JT-, »va i*T* BYTES. 
T*8 BYTES REPRESENTING 1h L TE IN 15TH AN U jilTh BYTES. 



ADDR 8F tiufFE' T1 ST8RF IjTPJT 
ENTRY 





DEF 


TIMFh 




«EF 


9STUP1 




RES 


1 


IBUF 


RES 


1 




DATA 





PTEMPi 


DATA 





TI^EH 


RES 
LI. 5 


1 




8A L »6 


9STUP1 




GE\»8»2<< 


l.IBwf 




ST., 15 


PTE-P1 




LCI 


h 




STM.10 


RSAvE 




CalI.8 


TI-HEFPT 




L«.1D 


RB^TIIE 




L»»ll 


RB1T1M£«J 




ST-.1G 


1? 




SLU.10 


•2» 




ANC11 


•X'FFFF' 




A'JD.12 


■X'FfFf 0000' 




A., 12 


11 




ST..12 


13 




L».10 


RB^ITI^E*! 




L-,11 


«B"TI1E*2 




SLD'IO 


B 




Al.ll 


*'»0' 




L-.12 


X6MT]i-.r»d 




sls.13 


16 




AI.12 


X'13^0' 


• 


MBvE D»T» T9 USER'S BUFFrR 




LCI 







STr.10 


•IBUF 


• 


RESTORE 


REGISTERS AND EXIT 




LH.10 


RSAVt 




B 


•PTEMPI 


TI-ieFpt 


RES 







QE.\#6»7 


17 *• 1C.0/RBHTIH 


KB"TI"£ 


DATA 


i.c.o.o 


RSAVE 


DATA 

E.mL 


G.O.J.C 



S«vF REGS 13 T«R W 13 
READ CLBC< INTO -,9*TI- 



K13.mUuR.hBUR.hI „-| • 



Rlr,.SPACE»r'8NTH, -8nth,h8\tm 

SPaCE.DAY.UaY.SPaCF 

YEAR RIGhT ADjjSTE") 

LEFT A3JUSTEJ 

RIP. 2 BYTES SF YEAR 4 2 SPACES 



FIlE P8IJTER TS hEAC R^h CL8CX 



BUFFER FUR RB" Cl8C« DATA 
SAvF REGS lj-13 



18 


1 


18 


? 


18 


3 


18 


it 


18 


5 


18 


6 


18 


7 


18 


8 


18 


9 


18 


13 


18 


11 


18 


1? 


18 


13 


18 


1* 


18 


15 


18 


18 


18 


17 


18 


IS 


18 


19 


18 


2? 


18 


2; 


18 


2? 


18 


23 


18 


2» 


18 


25 


18 


26 


15 


?7 


U 


2« 


18 


29 


18 


3- 


18 


31 


IS 


i? 


IB 


J3 


18 


3« 


18 


35 


18 


36 


18 


37 


IS 


3" 


18 


39 


18 


»? 


18 


"1 


18 


*»? 


18 


»3 


18 


Ufc 


18 


• 5 


18 


"6 


18 


W 


18 


".9 


18 


»9 


18 


SO 


18 


51 


18 


52 


ie 


53 


18 


5» 


18 


55 


18 


56 


1" 


57 


13 


5" 



48 



2.6.28 SUBROUTINE TSTAP 



ROUTINE! TS 


r»p,TY"Ee J 






. • 


TSTai-, TYPE" 


UT 






BE> 


TSTAP 






3£( 


typfjut 






«Et 


«AS< 




-.1->SA» 


RES 


16 




TSTAH 


LCI/7 


7 






ST, ,7 


WEGSAV 




TIJTP 


TIi). 13 


a'EO 1 






BCk"»i2 


tovtp 






LI. 7 


b 






faCS'3 


TPERW 






LI, 7 


i 






LB, 1 i 


13 






Cti, lj 


"KTI6.7 






BA\Z 


TPERK 






BD.i.7 


*-2 




TPE«« 


MI, 7 


b 






A|,7 


ERR1ESS 






ST., 7 


TYP£8lJT+a 






Cal1,2 


TYPJOUT 




TPtxT 


LCI 


7 


. 




L'l.7 


KEUSAV 






B 


•15 




TQVTP 


TO,. 13 


A'EO- 






LI. 7 


it 






C-,13 


"ASK.l 






bA t 


TPERR 






mt./i 


15 






b 


TPEXT 




MXTIB 


D»T».l 


0,A'80',X'60',X'OZ I 


ER""1ESS 


TEaTC 


' MBE TAPE 


-.AvuAL 




Tf.Tt 


• 1BE TAPE 


IV PLUO 




TEaTC 


' iSt TAPE 


BUSY ' 




TEaTC 


! 1 B E TAPE 


ONUS END 




TEaTC 


• «BE TAPE 


APT PRBT 




TEaTC 


i MBE TAPE 


N6T WECQ 


TY^ESUT 


Data 


AlOS-jOEOOO' 






DATA 


A'BOgOOOOO' 






DATA 


c 






Enl 







SAvE REGISTERS 

TEST TAPE 

UNIT 3K, TEST FBR 



.RITt PP9TECT 



AOO'ESS UNRECBGMZEO 

SET INDEX ES« LB3P 

13vE STATUS BYTE T9 S8TTBM 

C9MPARE AQAIMST 1AS<S 

RECS'O APP-jBPrIATE FRRtP CBND 

"■EEP L99*K.G 

IF TALL THRpuGh, *UST 3E "ANUA 

CBr-PUTF. F« K MrsS ADDRFSS 

STC FflR HON ScRVlCF CALL 

PRJNT E"P9H IeSSAQC 

RESTPRe ^EoISTfRS 



TEST F8R WRITE PR8TFCTFD 



aRITE PRBTECTED 

ADvA'.CE RETURN AcDRFSS 

AND EXIT 

INT P£ND,BUSY,UNuSuAL EN3 



16 


1 


16 


? 


16 


3 


16 


A 


16 


5 


16 


6 


16 


7 


16 


8 


16 


9 


16 


10 


16 


11 


16 


12 


16 


13 


16 


1» 


16 


15 


16 


16 


16 


17 


16 


18 


16 


19 


16 


20 


16 


?i 


16 


22 


16 


23 


16 


2A 


16 


25 


16 


26 


16 


27 


16 


28 


16 


29 


16 


30 


16 


31 


16 


3? 


16 


3 3 


16 


34 


16 


35 


16 


36 


16 


37 


16 


38 


16 


39 


16 


*o 



49 



2.6.29 SUBROUTINE TSTLP 



• 


TSTLH 






DEF 


TSTLP 




R£F 


TYPE8UT 




REF 


MASK 




RES 


1 


1 


RES 


1 




DAT* 





PTMP1 


RES 


1 


TSTLP 


RES 


? 




L*,14 


•15 




ST»»1* 


I 




At, 15 


1 




ST*. 15 


PT"P1 




LI, 6 







ST.s,6 


•1 




TIb»13 


a 




BCR»12 


TDYLP 




LI, 6 


TIBMSK 


ERRSCAN 


LI, 7 


n 




LB, 13 


13 




C3, 13 


•6<7 




BANZ 


LPERR 




B0R«7 


»-2 


LPERR 


11,7 


b 




tl.fc 


TIB1SK 




Bne 


**3 




AI,7 


TIB1ESS 




B 


»*2 




AI,7 


TDYMESS 




ST«,7 


TYPEBUT»2 




CAL1,2 


TYPE8UT 




LI, 6 


1 




ST-,6 


•I 


LPE.X1T* 


RES 


3 




B 


•PTMPl 


TCVLR 


RES 


p 




Cw.13 


MASK+3 




BAnZ 


U8T0V 




LI, 6 


TIBMSK 




1.1,7 







B 


LPERR 


DBTDV 


TO*, 13 


2 




6CS.12 


**Z 




B 


LPExIT« 




LI, 6 


TDVMSK 




B 


ERRSCAN 


TIBMSk. 


OATA.l 


0,X'80',X'20',X'40', 




B8UN0 


4 


TDVMSK 


DATA.l 


o»x>sO'jX'o»' toto 




BauNO 


* 


TI01£SS 


RES 


a 




TEaTC 


• LP MANUAL MeDE 




TEaTC 


' LP IM NBT ACKN 




TExTC 


' LP P8"ER BFF 




TEaTC 


' LP BUST 




TEaTC 


1 LP UNUSUAL END 


TD'MESS 


RES 







TEaTC 


• LP PAPER LB* 




TEaTC 


' LP PAPER RUN A*AY 



TST LINE PRINTER 

3B8D, TEST PAPER L8iw ETC. 

SET TEST MASK ADDRESS IN RC 

SET L8BP C8UNT 

TRANSFER STATUS BYTE T8 B8TTBM 

TEST F8R ERR8R 

ERRBR CSNDIT19N 

LBBP 

F8RM "ESSACE ADDRESS 

TEST IF TIB BR TtlV 

N8 TIB 

FBft" ADDRESS FBR TI8 

FBHM ADDRESS FBR TDV 
STR IN BUFFER 
8UTPUT MESSAoE 



TEST IF fANUAL MODE 

NB, D8 TDV 

SET R6 

SET INDEX FBR MANUAL MESSASE 

AND REC8«D FRR8R 

TEST DEVICE 

S8MET«INi *,R8NQ 



SCAN F8R ERRBR 



17 


1 


17 


2 


17 


3 


17 


4 


17 


5 


17 


6 


17 


7 


17 


8 


17 


9 


17 


in 


17 


u 


17 


12 


17 


13 


17 


14 


17 


15 


17 


16 


17 


17 


17 


18 


17 


19 


17 


20 


17 


21 


17 


22 


17 


23 


17 


2* 


17 


25 


17 


26 


17 


27 


17 


28 


17 


29 


17 


30 


17 


31 


17 


32 


17 


33 


17 


3* 


17 


35 


17 


36 


17 


37 


17 


38 


17 


39 


17 


*0 


17 


41 


17 


42 


17 


43 


17 


44 


17 


45 


17 


46 


17 


47 


17 


46 


17 


49 


17 


50 


17 


51 


17 


52 


17 


53 


17 


54 


17 


55 


17 


56 


17 


57 


17 


58 


17 


59 



TExTC 
END 



LP PARITY ERR8R 



60 
61 



50 



2.6.30 ROUTINE I 



rbutIne: rtni 



. FMAKK 

, KMAST 

, QMAST 

, QCNT 

FPPF, xecc, KH, 



, 1AST19I . 

. fAST / 
. IMAST 

LF0PM2), „C, TRDLY, 



'.BCNT(» ), 



C • RTNI 

SJBR9UTINE RTM 

INTEGE* HDA 

IMTEOEK AHtC,AMlST,AJJ,BL«S#BLZP#CC2,CHSET,CLENG.Cr.L'»G.C«WAL, 

1 CnAe,C'<0IS,CNTLN,CS,CTP,D,DA,DATE,DBUF,DCF,DFAlL,DI-S,:)LOAY, 

2 D" l ALF,D*l8DE.D3F,D9*,DS,0TLN5,UTTAB,DU"Yi,OUnY2,DI'.L,0kLP,E 'AST, 

3 E v, TFL,EaDT.FAlL.F L TAB,F^A-(<,FfC,F-1THD,FS,FSTFL,FTAB,FTB JD.MEJUFL, 
» HUll # HDl2 < HBgi,HDzejHD3ljHD<,liHD51»HLIDF»HLI0T#H»1AST»HR F .,usBl&j 

t, rtTEST,HTST,90AV,PATNM,PRC3U,PHTFL,PRVD,PTI> ,1 «PTN,CCNT,'JPT,;JS« 
fe RAwBC,RAKS |i '«RS,RTC, SBARiSCCNr»SCOFC/St:NSI»SCS»SrCFC#Se-MSKj 

7 SPACE,S.<DIS,SS,SSF*,S7PT,ThSIZ,T8YTe,ThrSh,T!HE,T9Su,TBSU1» 
1! TSTRT,TSuA,TXA,TxK,TXS,T*T, VHIST, vBL,"fAS7 

- INTEGER SHT f L, OAY-K, STLP. PaGNM, Su"*S, DJ.SU", 9SU«, SSJ*, SSU f '>, 
X STpS-l.TTSj", vSuM,DLSCT,9SECT,r;SECT,SSFCT/sTpSC,TTSCT, KSECT, 
x DLTP,t9JC,STPTP, ,/DAY, 9PL, AvSP, TTT"P, SUA Y, T"PS, 0, 3MAST 

CB^hSN /mCUS/ IDr%r-DA 

CB^f'BN /BLK6 / FHC 

• 11AST i JHAST 
. H-*AST , n"AST 

• S P ACL / MPflKY 
Ca^BN /BL«9/ USP»(2»)» 

1 SLTLN(138)» SLFDP(U) 
INTEGER SCTLN 
CB*1H9N /BL<11/ HSH15I32) 

2 LNKUI(6t),N08L(69>»N9NCS, 
. TBSU 

CB^MBS /8L<12/ D(138)iDAYWK,JJ0UM, 

• LNKSI(3) j PATMOI , PRTFL 
. SCCM(29)»SSF* 

C9" I MB\ /BL<13/ DWLI259) , DWLP(|7) 

1 FIAB, FTB*U, -19EIFI69) 
C... THi a-(Ra» LNKPTI6*) «AS ChamSED TB L<PT>M6») IN THIS 

£;•••• bEC*USE 8F * LABEL cBMFLIcT IN THIS PH9GRAM. 

C9" 1 P9i\ /BL<1*/ CLLNb , DTLN3 , 

• QUMYl, 0U.-Y2, CNTLN|372),£nTFL(5>* 

• KCLI17), <LTF(l7), KCSFI17), 
, VR I NT (123) i 
, HBUFL i 
, NC*22 i 
, NHCTL < 
, NPAIB j 
, TBSIZ j 
, FS i 
, SS i 

CB1KBN /BLK19/ CC21129). DFAJL(69), D9FI17). 
. MI|3l) , RAaBC(258> , RAkiSP(?58) / 

. TSTRT(516> 

CB^mBm /BL*2;/ AVSP< DLDAY(138)< NSDAYI138)' 
1 9PT< SDAY[138>, VDAYI138) 
CBIMBN /<3L<2<»/ AHIST1138), CNDIS, DCF, 

, F:1T9D . FSTFL , 

NHDAY , PRCBD ( 

THRSH, VHISTI138) 

MAL.(l7)j C"'TA8(258I/ 

, DMALF(l7I i JM8DE 

, H8DES / NAI 

SCDFC(»), V9LH3B) 

, PRVUI3] / LPBUFI1A06) 



\-IVA» 


31 I * 


sensk(S) 


cbimsn 


/BLM5/ 


CHSET 


INU^IF 


/ 


\BfCn 


vChRD 


t 


N'1ANP 


N-iSCT 


, 


NMyED 


N*ESP 


, 


NSTMl 


CS 


, 


OS 


US 


i 


HS 



SCNSM2) 

EflDC , 

3L8CK 
C^LMG , 



L<PT-i(6» I 

IUPI 

NC»D2 

NMLNK 

NPUi> 

TBYTE 

NS 

scs 

PTC 



B0AY(i38l< 9PC, 



HLIOF 
PTN(7<t5i 



» DB* 

. HLIDT(96) * 

• SMTFL» SRoIS, 
C9 M ^6:i /BLH25/ AHCL(l38l. 

• SrTAB(258] . DISC 17) 
. FLTAtMBOO) I MRF 

•• MfAL, 36«*(69)» SECFCH 
LB^MBN /BL<26/ DATEO) 
CBlf.B^/HtfLrtl/PAGNI 
CS , 'MB\ /HBL<2/ NRPT 
CS-'MB'j /MBL*3/ IEAF 
CB^KBN /ISuB]/ IBRx.MwSEC/ IPQKY 
DPEAS19N 10^(12) 
CIlEi^SIBN C*(3)» IDA(3) 
OI"E^SIB - . CTI^IdJj PTI M C»)i TSOA(l) 
DI-ENSIB. "UA(9) 

0PLNSI8S HUIK 5),H321( 6), -5311 7 ) , t,5* 1 ( 27 ) , riD51 ( 24 I 
DIMF.NSI8N "Jl2(31), M022O1) 
31-IE^SIBv TXA(2), TXS12)/ TXTI?), Txs(D 
CPt*"SIB\ HT3TI3) 
uPtNSlB:. J3UFI3J) 

EQUIVALENCE (TSUAI i),TBSU), (JJ/AJJ) 
EQUIVALENCE (LPBJF(1766),DBUF1 1) ) 
EQUIVALEMCE (DA(1), lOA(l) ) 

DATA HOIK 1|<HD11( 2). HOIK 31/HD1K »l,HClll 5)/ 
X ' END', " BF ', 'UAY ', 'RFPB', 'RT '/ 

DATA «U12( 1),HD12( 2)»H012( 3),hOi2, <.),h01?( 5H«Dl?( <i ) , 

1 HD12( 7),H012( 8),HD12( 9)<HD12(10),H012( 11 ),iDl?( 1?), 

2 Hul2(l3),H012( 1»),H012(15)/H012(16),HD12(17],HD1P(1?), 

3 HL)12(lS),HC12(20),HD12(21 ),HDl2(??),HD12(23),M0l?(2i.), 
1 HD12(2bl,HD12(26),HD12(?7),HD12(2S),H012(29),n0l?(3j), 
5 HD12(3l)/ 



SYS', 


'TEM 


VB', 


•LL"1E 


ME •» 


' 


S', 


'TBPS 


', 


'ClUEU 



'ELAY' 



TRA 



■ TI 



INCY 

'SPEE 



DATA H021 ( 1) 
X ' 

DAIA H022I 1) 



'/ 



h021( S)#nD2K 4)/ 



D2l( 2)»H02K 3)»H021( » ) , 

' INIT', 'UL ', 'TPE', ' ', l ' 

022( 2),HQ22( 3),HD22( »),M022( 5!,lD??( s), 
L22I '),HC22( 8)»HU22( 9 I , HD22 ( 1 ) , HD22 I 1 1 ) , hD2? ( 1 7 ) , 
HL22(l3),MD2?(l»),HD22(i5)iH022i 16 ),hD22 ( 17 )»hD2? ( li )< 
Hu22(l9),H022(20),H022(?l ) , H022 ( 22 I , H022 ( 23 I , hD?2 ( 2» I , 
hu22(25|,mD22i2(>),H022(27),h022(28],hD22(29),hDs?(3.)), 
HD22(31)/ 

' PER', 'F9RM', •A^CE', ' ', ' ', ' ' 

1 T', 'BTAL', ' ', • ', ' T', iBTAL' 



26 


1 


26 


2 


2b 


3 


26 


* 


26 


5 


26 


6 


26 


7 


26 


8 


26 


9 


26 


10 


26 


11 


26 


12 


26 


13 


26 


1» 


26 


15 


26 


16 


26 


17 


26 


18 


26 


19 


26 


?0 


26 


21 


26 


22 


26 


23 


26 


2* 


26 


'5 


26 


26 


26 


27 


26 


28 


26 


29 


26 


3D 


26 


31 


26 


32 


26 


33 


26 


3» 


26 


35 


?6 


36 


26 


37 


26 


38 


26 


39 


26 


"0 


26 


M 


26 


»2 


26 


43 


26 


ltd 


26 


1*5 


26 


»6 


26 


»7 


26 


»8 


26 


"9 


26 


50 


26 


51 


26 


52 


26 


53 


26 


5* 


26 


55 


26 


56 


2b 


57 


26 


58 


26 


59 


26 


60 


26 


61 


26 


62 


26 


63 


26 


St 


26 


65 


26 


46 


26 


67 


26 


68 


26 


49 


26 


70 


2b 


71 


26 


72 


26 


73 


26 


7» 


26 


75 


26 


76 


26 


77 


26 


78 


26 


79 


26 


80 


26 


81 


26 


8? 


26 


83 


26 


84 


26 


85 


26 


86 


26 


87 


26 


88 


26 


89 


26 


90 


26 


91 


26 


M? 


26 


93 


26 


S4> 


26 


95 


26 


96 


26 


97 


26 


^8 



51 



3ATA 



nj* 
HL* 



CATA 



'GE 
1( II 
11 ») 

I *E 

111! 
1( 7) 
1 C 1 J ) 

1(1*) 

K2bi 

' LIN 

i y 

'UPA\ 

1(11 
1( 7) 

I (13) 
1(19) 

' vfcH 



HD31 
"331 



mD*1 

hD*1 
hDM 
*C»1 



'8TAL'« • 'a " P', if-aCE', 

'vEKA'a 'bf- 'a ■ i a ' A', 

I 2)<hd31I 3)«h031( *)jMij3U 5la 

I 7)/ 

P8«T', i %9*. ', i ', ' ', 

•/ 
I 2)»HD*1( 3l#H0«l, »)aWJ*l( 5]»> 
I 8)»HD*1( 9liHD*liniiH3»l(lli., 
( l«)«HD*i(i5)aND*ms)aH0*l( 17)a. 
[ 20 ) < «D* 1 ( 31 ) a HD»1 ( ?? ) , HL>* 1 ( 23 I a . 
(26)imD*1 (=71/ 



( 6>> 
(13)i 
(H). 
(2»)a 



I AVtT » 



'1-E 



> S T»Pi 

'CUEu' 



OEL*' 
p SCO 



i 'CY 'a ' 

i • SPEE' a "J '/ 

<05l( 2)»H0S1( 3)»"051( »)aHP5l( 5 ) j . 

HP5K 8)aH351( 9>aHD51(l;)aHC51< 11 ).. 

<D5l ( l»)<H0bl ( i5)/mD51i.|*)aWw51 (17).. 

iDSl (20)»M251 (?l laHObl (?2>aHC5l(23la. 

i MCLE'a 'b •, ' i, " vE' 



( Ma 
I 1?)/ 
(1«)> 
(2*1/ 



26 


99 


26 


130 


26 


131 


26 


132 


26 


133 


26 


10* 


26 


105 


26 


136 


26 


137 


?s 


138 


26 


139 


26 


110 


26 


111 


26 


112 


26 


113 


26 


IH 


26 


115 


26 


116 


26 


117 


26 


118 


26 


119 


26 


123 


26 


121 



1A T A 



^ATA 
OAlA 



'. ",Eh ', • 
• vt-l'a VCYC'» ' LE '» ' 

.S( 1 >« TXS(2>/ ' SEC'# • T ION » /■ 
.T(l )< TxTI?)/ i TIT'. ial '/ 
iMIl' ' M •/ 

aA(!)» TxA(?>/ • AVE'a 'SAGE 1 / 
uATa EB3Tact\KS » I SAVfa JJaSTPTP 
. / '2-j;'.' 'a 1. 1< 1/ 

,;aTa ~j L ZP/ ■ 0. •/ 
;»1< TdSol /'0CC3'/ 
-5 1 Ir! ■ 1'I8l.6 
t PBUF( IB) • BOKS 
CBNTINuE 

_CM • 3 

l.M>EX > 

IEAF.i 

CIS T8' ( 9.31»*O»50«60)« IQ9a 

CSNTINlE 

ILWx . 1 

JJ • 1 

-ELEASt LI.nL P"!ME« 

CALL CaLWL 

IFIFMTdO.NE-:) G8 T8 101 

TEST FBS SHOT 03*'. 
IF (SiTFL. "*£• r>) 69 TB 131 
~LlDF . j 

1F(\h,3»V.Ej..' ) r,8 T8 1C2 
SS 1C5 In. 1.3 
iTST( Im) . UATEl IH) 
CBNTlNuE 

CALL SeYTC("TST,l ) 
-TST(?| • LATE:(2) 
CALL SdYTC(HTST(2),1 ) 
IH • 3 

VI • 3.\-(DAT 
CBNTIMuE 

IFIHTST II ) .^E.HLlOTI IH*d | (js T8 103 
IF(htST(2).*E. m L10T( I*+2) ] 69 TB 103 
-HTEST . HLIJT(I^ + 3| 
CALL PTBY(HTEST, 3, eL^KS) 
IF(HTST(3)« NI E. H TEST> GB T8 I53 
CALL .it TSYCTST, JM+U.HLIDM 



•mRS I 
' PFR' 





\HJAV • MHJAy . 1 




\H • 3.NHCAT 




ML1DTI 1h*1 ) . MLIDT(IH*1) 




HLlCTllH.2) . "Ll3TI.JH4.2l 




mlICTI lh»3) . hLI0T(1.h*3) 


102 


CBMTlNuE 




ESJC • 1 


110 


CSMI'.ut 




^FTUK.\ 


103 


C9^T1\ U L 




IF(Ih.OE.Nh) 03 TB 102 




IH . In ♦ 3 




JH ■ Jr- * 12 




oS TB lu* 


101 


CBNTImjE 




EBJC ■ EJDC ♦ 1 




-C^Tib 




03 TB 110 



C3''Tl!i„E 

IF( IPj«T.v.f • '.) fjB TB 15 
CALL TI1EHICTI") 
JFIS'iTFL-E .•' ) GO TB 11 
OS 10 I .1. i 

;ate i i 1 • cM-i I ) 

L5'.TI\„E 

T I ->t ■ CTt'U) 

03 TO 1 i 

CS^TI ,oF 

3S 12 I «la 3 

0AIEI I ) ■ P-**0( I ) 

CB^TI vl.E 

Tl-E ■ EBDT 

0AT„K . 0Ar*K ♦ 1 

IF(0«Y„rt.6T '7l QAY»K . 1 

CB^TI^idE 



26 


12? 


26 


123 


26 


12» 


26 


125 


26 


126 


26 


127 


26 


128 


26 


129 


26 


130 


26 


131 


26 


13? 


26 


133 


26 


13* 


26 


135 


26 


136 


26 


137 


26 


133 


26 


139 


26 


1»0 


!b 


1*1 


26 


1«? 


26 


1*3 


26 


1** 


26 


1*5 


26 


1*6 


26 


1*7 


26 


1*3 


26 


1*9 


26 


150 


26 


lbl 


26 


15? 


26 


153 


2t- 


15* 


26 


155 


26 


156 


!b 


157 


26 


15". 


26 


159 


2fa 


160 


26 


161 


26 


162 


26 


143 


26 


15* 


26 


165 


26 


166 


26 


167 


26 


168 


2f. 


169 


26 


170 


26 


171 


26 


172 


26 


173 


26 


17* 


26 


175 


2b 


176 


26 


177 


26 


178 


26 


179 


26 


ISO 


26 


111 


26 


15? 


26 


183 


26 


184 


26 


185 


26 


186 


26 


187 


26 


1«8 


26 


1H9 


26 


19; 


26 


HI 


26 


1"? 


2» 


193 


26 


1 '* 


26 


1=15 


26 


1 Q 6 


2 6 


197 


26 


19? 


26 


199 


26 


230 



52 



H02M5) ■ BLNKS 

-ID21 ( <> I • bLNKS 

D9 1* I • 1>* 

CALL SETBY(TSUA,I ,ICH) 

CALL PTBY(*U21, I«17» ICH) 
1* CSMI\^E 

TSSu • T9SU1 

CALL ElSRT|E9Dt»HD31<*) ) 

IF< IPi^T.NfO) G9 T8 100! 
C.--. 3EUICATE TmE LINE PRINTER 
C 

CALL CaLIS 

c 

CALL TSTLP1STI.P) 
IF(STLP.EC.r) 08 TB 60 

PAHNM • • 

C.i. HE*E PlACE E;M0 9F DAY HEADER 1MB LlNF PRINTER BUFFER 
~'l5 -C^TlNuE 
C."« SET LP CBOfc ANU SPACE LINES 

LVJEX ■ LNDEX ♦ 59 

NbYTE • 18 

CALL STlSG <2,1BN0x»LCNT»LNDFX»h311»NByTEi 

CALL ST^SG f».IBN5A»LCNTfLM>EX. 3. 0) 

LNJEX • LNDtX ♦ »8 

N8YTE • 36 

CALL ST1SG (2, IBNDX,LCNT.LNDEX,MDA ,\PYTE) 

CALL ST-ISG (». IBNSx.LCNT.LNDfX. 0* 0) 

LNDEX . LNCEX ♦ 31 

X8UE • El 

CALL ST1SG(3»Ib\DX»LCM # LN3E«,HD21#NpvTE) 

LNDEX ■ LNDEX ♦ 31 

MO'TE • 21 

CALL ST^SGlZv Ib\t)X.LCNT/LNOEx»HD31«NBVTE ) 

CALL ST-ISGl*. IbNDX.LCNT.LNUEx/ 0» 01 

..NJEx a LMDEX ♦ 16 

NBYTE a 106 

CALL ST"SG(2. IdNDX,LCNT,LNJEx/"D*l.NPYTEl 

LN'JEx • LNOEX « 25 

Mb'TE • 96 

CALL ST;-.SG<2j IBNDX#LCNT/LN3EXfH031#N'BYTE I 

Call STMS6<»»IbNDX«LCNT#LM5Exj o< 0] 
C... HE^E COLLECT LINK CATA AND PLACE INTO LINE PRINTER BUFFER 

IF< |P3«.Y.Nt«0) 08 T8 1001 

OlSU" • 



NlSS . 





NLIS • 





NLSPS . 





esj^ • 


J 


i.SJti • 





ssjc • 


o 


STHS* • 


(J 


TTSU^ . 





wSJh a 





lBIPI 




ILNKP.i 




CBNTINo 




3LSCT . 





NLS 


c 


NLI ■ 





NLSPT a 





SSECT a 





iSECT a 


G 


SSECT a 


c 


STPSC a 





TTSCT a 


c 


»StCT a 





OBJFCl ) 


• 


38UFI21 


■ 



TXSU 1 

TXSI2) 
CALL ElSRT( JJ.OA) 
DSJFI3) a JA<2) 
CALL M»LF( L NKS1, JJ«1,LIM) 
L99P2 
CSNTInlE 

Call H»LF(SLTLN.IL'.XP/LNKPT) 
L \l«PTaLNi<PT*l 

CALL 5FlBY(ND8L,LNKPT/NDTL> 
IF(NDTl^EO.O) G9 T8 29 
NLS a NLS ♦ 1 
NLSS a NLSS ♦ 1 

CALL "ALF ( v<UAY,LN<PT, INCV) 

VSECT a VSELT ♦ INCV 

VSUM a vSj" ♦ INCV 

CALL riALFieUAY/LNKPT, INC) 

8PC a INC/NRPT 

3SECT • 8SELT ♦ BPC 

9SJM a 85'^ ♦ BPC 

CALL 3ET^Y("8EIF,LNKPT» ITST1 | 

CALL GETdYlUFAIL'LNXPT, I T ST2| 

IF( ITST1.E a«0 -8R. ITST2.EJ.0) G6 T9 18 

AvSP • 

TTTMP a 

G9 TB 19 

G9"*TINuE 

NLSPT a 'ILSPT ♦ 1 

NLSPS a l.LSPS ♦ 1 

CALL HALF(SUAY»LNKPT,THPS) 

AVSP a (TMPS.*)/NRPT 

SSECT a SSELT ♦ AvSP 

SSUK a SSU™ ♦ AVSP 

CALL MALF(D»LNK.PT # IDaL) 

TTTf-.P . < ImCv.IDBL»128> / (AvSP"5260)«8 



26 


231 


26 


202 


86 


203 


26 


23* 


26 


205 


26 


236 


26 


207 


26 


238 


26 


209 


26 


210 


26 


211 


26 


21? 


26 


213 


26 


21* 


26 


215 


26 


216 


26 


217 


26 


2ie 


26 


219 


26 


223 


26 


221 


26 


222 


2b 


223 


26 


22* 


26 


225 


26 


226 


26 


227 


2b 


22" 


26 


2?9 


26 


233 


26 


231 


26 


23? 


26 


233 


26 


23* 


26 


235 


26 


236 


26 


237 


26 


238 


26 


239 


26 


2*0 


26 


2»1 


26 


21? 


26 


2*3 


26 


2»* 


26 


2*5 



26 


2*6 


26 


2*7 


26 


2*8 


26 


2«9 


26 


250 


26 


2bl 


26 


25? 


26 


253 


26 


2b* 


2b 


255 


26 


256 


26 


257 


26 


258 


26 


259 


26 


263 


26 


261 


26 


26? 


2b 


263 


2b 


26* 


26 


265 


26 


266 


?6 


267 


26 


268 


26 


269 


26 


273 


26 


271 


26 


272 


26 


273 


2b 


27* 


2b 


27S 


26 


276 


2ft 


277 


26 


278 


26 


279 


26 


2*3 


26 


281 


26 


28? 


!b 


283 


26 


28* 


26 


2»5 


2 6 


286 


26 


287 


26 


238 


2b 


289 


2b 


290 


26 


291 


26 


292 


26 


293 


26 


29* 


26 


295 


26 


296 


26 


297 


26 


2*8 


26 


299 


26 


330 


2b 


301 


26 


30? 



53 



19 C9NTISUE 

TTSCT • TTSLT ♦ TTT^P 

TTSUM • TTSU1 ♦ TTT1P 
C...« HE«E CBNvEWT INT9 90TPUT FBRiAT AND ST9RE IMS LPBuF 

C*Wi- ElSRT(LNKPT.DA) 

J8JF<5) • ,jA(2! 

CALL ElSWTI I\Cv,09uF(7> ) 

CALL Sc»TC|U3i> (7),1) 

CALL JtCHN(TTTiP,S»l-'BijF(n ) ) 

CALL SsVTCl'JHUf (111.21 

CALL DtC8Nc9PC.2»0BUF(22) 1 

CALL SbYTC(DBuF(22)»2) 

CALL 3FC8N,(AVSH#5,DBUF{29)) 
2b C9NTI'JoE 
C>... PSIM'.I 

idJFllal • BL\<S 

id-IFIlul • Bln*S 

0BUFU91 « BLNKS 

0BJFI2O) • BLNKS 

DBUFI26) ■ BLNKS 
il CS^TI^uE 
Z"" CLtAROAY 

L^DEX • LNUEX ♦ 1 

vBYTE • iao 

CALL STMSG<2» IbnDX,LCnT>LNOEx»0BUF,\byTE:) 

IL^KP.ILNKP+1 

IF<LCNT.GE.53l GB T8 32 

DBJFUl • ULNKS 

SBUF(2l > BLNKS 

3BJFI3) • eLNKS 
C.... L99P3 
2» CSMTINuE 

IF( ILN«.P.LE»LI"l 86 TB 17 

IFILCNT.LT. f>) G9 TB 3C 

GB TB ii 
29 CBNTINlE 

ILNKP. ILNKP*1 

GS TB 28 

c... he^e calculate tbtals and avfrages fbr secubn 

3U CSMlNuE 

AVSP • SSECT/NLSPT 

TTThP. TTSCT/NLSPT 

BPL • 9SECT/NLS 

DBJFln • TXT(l) 

0BJFI2I • TXTI2) 

D8JFI5) ■ BL'JKS 

CALL ElS*T(VSELT,5bOF( 7), 

CALL SdTTCIUBUF ( 7)»1 ) 

CALL 3ECBN(TTSCT,5,CBUF(11 ) ) 

CALL StmClUBuF (11 l< 2) 

CALL bTMSGCI.IoNDX.LCNTjLNDEx, 0. c> 

L\'JE< • LNLEx * 1 

\D»TE • 80 

CALL ST'"SG|H, IdNDX.LCK'T.LNUEx.DBUF, MBYTE | 

DSJF(l) . TXA(l) 

0BJFI2) • TXA(2) 

0BUF(7) • aLNKS 

DBJFI8) ■ clLNKS 

CALL ULCBMTTT1P»5.DBLF(H) I 

CALL ScYTCUBL* (111.21 

CALL DtC9N[8PC.2.0BUF(22) 1 

CALL So*TC<tf8U* 1221.21 

CALL iJfc.CBN(A 1 <SP.S. JBUFI29) 1 

CALL ST~1SG(8. I»NDX.LC\T.LNJEx» 0. 01 

L\'PEX • LNJE« ♦ 1 

MBYTE • 12j 

CALL ST"lSG(2. tBVDX.LCNT.LNDEx.UBJF.Nl-YTEi 



CALL ST«SG(».ISNDX.LCNT»LNUEXj 0. CI 

IFC JJ.GE..NMSCT) GB TB 35 

IFILCMT.GE.52) G9 T9 3* 

JJ ■ Ju + 1 

GB TB 16 
C... H L -<E P*IMT 9JT SYSTEM PERF9K--.ANCE 
31 CSNTlNuE 

CALL ST'-loGct. IBNDX.LCNT.LNJEx. 0. 01 

LMJEX • LNDtx »2 

MBYTE • 12» 

CALL ST^SG (2. IBMD»,LC^T,LMDEX.HDl2»MeYTE) 

LWEX • LNJEX ♦ ? 

MBYTE • 121 

CALL ST-SG (2. 1RND*.LCnT»LMDe.x<WD22»nByTE) 

CALL ST^SG (»/ lBNDx.LCMT.LMQEA. C> 0) 

9PC • BSJ^/^LSS 

AvSP • SSU'/.-.LiPS 

CALL EiSrfTi VSLK'.DBuF(7> 1 

CALL SbYTCI'JHuF (71.11 

CALL DfcCUN(TTSU".5.DBUF(H I 1 

CALL SaYTClUSUF (111-1) 

CALL CiEX9N<»PC»2»DBUF(22> ) 

CALL ScYTClUHUF(22).ll 

CALL JiC9N(AvSH,5.0BUF(29) 1 

uN'JEX . LNOEX *2 

MBYTE • 12^' 

CALL ST1SG (2.lBM3x.LCNT,L s 'DFX.DBUF.NBYTEi 

IB*X . IBP* ♦ 1 

GB T9 Ji 
32 C9NTINJE 

[PliKY . IPGKV ♦ 1 
33 CB^TIr.uE 

CALL PkNTF(LCNT) 

HAST! 1.' AST 1»2 

GB T6 110 



26 


303 


26 


30» 


26- 


305 


26 


306 


26 


307 


26 


308 


26 


309 


26 


310 


26 


311 


26 


312 


26 


313 


26 


31» 


26 


315 


2b 


316 


26 


317 


26 


31! 


26 


319 


26 


320 


26 


321 


26 


322 


26 


323 


26 


32A 


26 


325 


26 


326 


26 


327 


26 


328 


26 


329 


26 


330 


26 


331 


26 


3)2 


26 


333 


26 


33» 


26 


3 35 


26 


336 


26 


337 


26 


338 


26 


339 


26 


340 


26 


3»1 


2t 


3*2 


26 


313 


26 


300 


26 


315 


26 


3»6 


26 


3»7 


26 


3»B 


26 


3»9 


26 


350 


26 


351 


26 


352 


26 


353 


26 


35» 


26 


355 


26 


356 


26 


357 


26 


358 


26 


359 


26 


360 


2s 


3A1 


26 


362 


26 


363 


?6 


36» 


26 


365 


26 


366 


26 


367 


26 


36" 


26 


369 



26 


370 


26 


371 


26 


372 


26 


3/3 


26 


374 


26 


375 


26 


376 


26 


377 


26 


37R 


26 


379 


26 


3«0 


?6 


381 


26 


38? 


26 


353 


26 


3t» 


26 


385 


26 


3*6 


26 


387 


26 


388 


26 


389 


26 


390 


26 


391 


26 


39? 


26 


393 


26 


390 


26 


395 


26 


396 


26 


397 


26 


398 


26 


399 


26 


too 


26 


*01 


Sb 


to? 


26 


"03 


26 


»08 



54 



51 CBMTInuE 

MaSEC • WWSEC ♦ 1 
JPjKY a IPG^Y + 1 
C.B T9 3) 
C.... SLTuMr.! 
K-Ol CBMI\uE 

JPoKY . IP^V - 1 
IF(N«.SEC.NE> ?) SB T« 1002 
OS TO yB 
1002 C9">TlNuE 

\«SEC « <«SEC - 1 
jj ■ Jo + 1 
09 TB 16 
_-5 CBNTI^E 

I9"<X • I9RX ♦ 1 
IPbKY • 
uB T5 j3 
C... n£-*t "itl-NT 9UT END Br DAY SECTISM SJr-""APY 

10 CSNTIiUt 
C Pkl^T PeEOICTSR STATISTICS 
CALL °^P-(E.J 

ce tb no 

C... -E-'L °nIjT BUT E*D »f DAY 2B\E SUMMARY 
bl' CBNTIMuE 

isi*X • I-1RA * 1 

US TB t..J 
C.... L \URPT 

i > CJ'-TI'-.E 
c C3MI - t 

JB e>? I/. • J»V'ln< 

CALL PT-Lf ( v.'.ay, I Z, C 1 
L'-L PliLF^EA'i 12. L I 

C'LL PT'-Lf (SDAY, 17,^) 
Id CB'TI ,..L 

' AbT( ;■ AST )■ ;. 

..:• tb i ;c 



26 


105 


26 


106 


2b 


• 07 


?fc 


♦ 38 


26 


109 


26 


"10 


2b 


• 11 


26 


112 


26 


M3 


26 


Ml 


26 


115 


26 


•16 


2b 


117 


26 


118 


26 


1J9 


26 


120 


26 


•21 


26 


12? 


26 


123 


?b 


121 


26 


125 


26 


126 


26 


127 


26 


12? 


26 


129 


26 


130 


26 


131 


26 


13? 


26 


133 


26 


1 j» 


26 


135 


26 


136 


26 


• 37 


2b 


US 


26 


139 


26 


110 


26 


10] 



55 



2.6.31 SUBROUTINE PRPRED 



R'UTl-t: prpred 



SjSRBjTImE prp<fD 

C9 K *9 j/?l.K»/ ST AT (9#2»S0> SCUMMY (252) »ML 

C9~^t) . /=JL<6 / FMC , FMARK , 1AST19I i 

• -i-iAST , J"AST , KMAST , EMAST , 

• HiAST , »iaSt , UMAST , IMAST . 

• S^Atc , 1PUKY , QCNT 
cs^Ke-. /isum/ IBRX.NHSEC. 1^3<v 
DI«1E>SI3'« ,_AEEL<»«2)*9uT(9j0i,ST(9),T9TA L <9) 
0nEM513N C"S(^75,a) 

CPENSI9 . I*ur1U) 

:pE\si9-. ,u-,,) 

SpE^SI^ 1PPHL>(10)« IpphCiisA), !PPpB?(22)< IPPHDj(17|j 
1 IPP*Dt(2>< [OPH05I10)» IPPH06C2), BLARO), lTL6(5:i) 
REAL r:l,1g 

LSCMtf./gLTeT/MijMajMMi/RMp.ssjAMi.poBjfiajPZa 

EQUIVALENCE (ST, Mi | 

EJUIVA L EMCE <8UT,STAT) 

E^-UVAlENCE (IMjIfNUM) 

EJJIVALtNCEI "1, 9LAri(p| 

I^TE(>E^ dLAM<, PL<l-YT, STAR, PPIBF 

JATA oLAJK, HLKPYT, STAR, VEgSG' 1 '! ICEC/i i , 3, 1 .. .. I , I .1/ 

1 ' . '/ 

DATA PP19F/ 1/ • 

I^TEOF.k ZERC CFLG 
jATa ZtK9/'0J0C '/ 

JATA L-BEL/' TA',i\STP',' »»L','UNE ',' ' » HANS' » iTp S'.'PEED' 
C/ 
JMA \„STAT/90L/ 
DATA \STAT/3C/ 
DATA IkP-iO/' ', 



1,1 1, 




','S '/ 




1,1 \8i, 


1 


' . ' AV'/ 


a 


',' A V G'# 




','R95 '/ 




',' E"" 1 * 


■ 


i ( l DFV'i 




','RE L ', 




',' ERR 


, 


', 'ERR9'. 


R 


', 'RRBR '/ 





1 lev 



1 'TATP.'STIC 

DATA H-P"Dl/' LIM,'< 

1 ' STD',' 

a 'rms •,' 

3 '38 ',' P 

OaTa IpPhDc/'PREDi, ' 
1 'REL ',' 

p '«s ',' 

3 'L '/ 

[.AfA IPP-iOJ/ IFRHSI.IR 

1 'RR3R',' 

f 'RBR ',' E 

3A TA ^ P><0»/ 'LRK8' , IB 

JATA IPPHCr/'GT .','05 
1 ' cao'.'RECT 

G9 T9 i 1, 12, 49), PPIBF 
1 PPIBF . 1 

CALL 3fcT3Y( BL*M«, 1, BL<BYT) 

\|V"0 

call buffer imis#i»ckw»55o»ii»mn) 
J ■ 1 

11 1F( j . GT. 2) GB T8 50 
1UNIT . 1? 

lL«C 

08 2 L.1,9 
T9TALIL >«0«0 

1 1F[ Io\IT .GT. 1 7 1 JB T9 4C 

CALL BuFFER INI IUNIT,l»STAT,v,wSTAT, II, NN) 

I ■ l 
5 IFC I .GT. MSTAT) G8 T9 20 

LL'LUl 

lF(LL.iT.\ L ) GB T9 42 

\.STAT( l, J, I ) 

IF( \ .Lt< C) GB T6 100 

Ml»STAT(2,.o» I )/K 

Y.STATlS, J, I )/\.Ml.«2 

IFIY.lT.O.) V.S.O 

•^■SuRT(Y) 

R-U.STaT(k, J, 1 )/N 

Y» ST AT I 5, J, 1 |/N.RM1«»2 

IF(Y.LT.O'O) Y«0'0 

RIS.SakT(Y) 

SS'SORT (RK1»»?»RM2««2) 

A11.ST«T(6, J. I )/N 

P0S.STAT(7, J«I )/N 

P15.STATI8, J, I )/N 

P2J»ST>Tl9, J/I)/^ 

09 6 1N01 ■ 1, 9 

TE^P • ABSl BLARI INDl ) ) 
IF( TE'.P .GT. 9999.0) 58 TB 100 
o C9^TI\>,E 

IF( C8*< LL' J) "GT. 9999999.0) G8 Tfl 100 

09 7 L«1.9 

T8TALIL) •TBTAL(L)*ST(L) 

IF(LlN£.ME.»OI G8 T8 15 

LlNE.J 

IF( PPI8F .EQ. 1 ) GB T8 12 

CALL PnNTFI LCNT ) 

MASTl piAST)»2 

RETURN 

CLEAR LIME PRATER BUFFER 

12 I8PT • 5 



PRE', 'DICT', '3R SI, 



S', 

PR8', 


,'AVG ' 
'TO ', 
'B ', 


Ul 

RE', 

REL'» 


.'EV 1 
'L ', 


> R 

ERR'/ 


', 'EL 

'BR ' , 


ST' 


>' .20' 



27 


1 


27 


? 


27 


3 


27 


A 


27 


5 


27 


i 


27 


7 


?7 


8 


27 


9 


27 


10 


27 


11 


27 


12 


27 


13 


27 


1» 


27 


15 


27 


lfr 


27 


17 


27 


18 


27 


19 


27 


2? 


27 


?1 


27 


?2 


27 


?1 


27 


?k 


27 


?5 


27 


?t 


Si 


27 


27 


29 


27 


29 


27 


31 


27 


31 


27 


32 


27 


33 


27 


3 A 


27 


35 


27 


36 


27 


37 


27 


38 


27 


39 


27 


"9 


27 


M 


27 


*2 


27 


A3 


27 


4« 


27 


»5 


27 


"6 


27 


♦ 7 


27 


AB 


27 


A9 


27 


50 


27 


51 


27 


52 


27 


53 


27 


5A 


27 


55 


27 


56 


27 


57 


27 


58 


27 


59 


27 


*0 


27 


61 


27 


62 


27 


63 


27 


6 A 


27 


65 


27 


66 


27 


67 


27 


68 


27 


69 


27 


70 


27 


71 


27 


Ti 


27 


73 


27 


7» 


27 


75 


27 


76 


27 


77 


27 


78 


27 


79 


27 


80 


27 


«l 


27 


S2 


27 


S3 


27 


84 


27 


95 


27 


86 


27 


»7 


27 


88 


27 


89 


27 


90 


27 


91 


27 


92 


27 


93 


27 


9. 



56 



ppieF ■ a 

1BMQX • 1 

LCNT . 1 

LNDEX . 722C 

NBYT • 1 

CALL STMSGl IBPT, IBNDX, LCNT, LNDEX, IPPHD, NBYT) 

PRINT TITLE 
D6 13 INDEX . 1/ * 
IPPH0( INDEX) • LABELI INDEX/ J) 
U C8NTINUE 
I5PT • 2 
\B»T • 00 
LNDEX . 38 
CALL STMSGl I8PT, IBNDX, LCNT* L N DEX, IPPHD, NBYT) 

SKIP A LINE 
H*T . » 
CALL STISGl I8PT, IBNDX, LCNT, LNDEX, IPPMD, NBYT I 

PRINT LABELS 
!9<>T • 2 

LNUEX • LNDEX ♦ 7 
NBYT • 96 

CALL STMSGl IBPT, IBNDX, LCNT, LNDEX, IPPHD1. NBYT ) 
LNDEX • LNDEX ♦ 17 
NBYT • 88 

CALL STMSGl I8PT, I6NDX, LCNT, LNDEX, IPPHD2, NBYT ) 
LNDEX • LNDEX ♦ 35 
NBYT • 68 



27 


95 


27 


96 


27 


97 


27 


98 


27 


99 


27 


100 


27 


101 


27 


102 


27 


103 


27 


100 


27 


105 


27 


106 


27 


107 


27 


108 


27 


109 


27 


110 


27 


111 


27 


112 


27 


113 


27 


in 


27 


115 


27 


116 


27 


117 


27 


118 


27 


119 


27 


120 


27 


121 



CALL STMSGl 18PT, IBNDX, LCNT, LNDEX, IPPHD3, NBYT ) 
LNDEX • LNDEX ♦ 52 
I9PT • 3 
NBYT . 8 

CALL STMSGl IBPT, IBNDX, LCNT, LNDEX, IPPHD*, NBYT ) 
I9PT • 2 

LNUEX • LNDEX ♦ 19 
NBYT • »0 

CALL STMSGl I8PT, IBNDX, LCN T , LNDEX, IPPHC5, NBYT ) 
I8PT • * 

CALL STMSGl I8PT, IBNDX, LCNT, LNDEX, !TLB» NBYT) 
15 LINE ■ LINE ♦ 1 

ENC8DE (120,2001, I TLB(2) ) LL, N, Ml, p-,2, rmi , RM2, SS, AMI , Pn5, PIC, P20, 
1 C3RILL/J) 

2001 F8*MAT< IX, I*»I9'2F9.2«7F9.3,F15.2) 
I8PT • 2 

NBYT • 113 
LNDEX • LNDEX ♦ 3 

CALL STMSG( IBPT, IBNDX, LCNT, LNDEX, ITLB, NBYT) 
100 I ■ I * 1 
G8 TB 5 
CONTINUE 

IUNIT • IUNIT ♦ 1 
G8 T8 » 
C8NTINUE 
CBNTINUE 
D8 *3 L«l,9 
T8TAL(u)»T8TAL(L(/NL 
ENC8DE (120*2002, ITLBI2) I TBTAL 

2002 FBRMAT ( I T8TALS« » 7X, 2F9.2, 7F9.3 ) 



IBPT 



SKIP A LINE 



CALL STMSGl I8PT, IBNDX, LCNT, LNDEX, ITLB, NBYT) 

PKINT LINE 
I8PT • 2 
NSJTT • 100 
LNDEX ■ LNDEX * 3 

CALL STMSGl I8PT, IBNDX, LCNT, LNDEX, ITLB, NBYT) 
PPI8F . 3 
CALL PRNTF( LCNT) 
MAST! IMAST)«2 
RETURN 
*9 J • J . 1 
PPI8F . 1 
GB TB 11 
C8NTINUE 

D9 70 IO»N«STAT 
8JT( I ).0>0 
D8 75 1.12,17 

CALL BdFFER 8UT( 1 , l , 8UT, NwSTAT, 1 1 ,NN ) 
IF( II.Nt.2l G8 T8 73 
CBNTIn l E 
IB*X»IBRX»1 
MA5T( Il-ASTI'l 
RETURN 

END 



27 


122 


27 


123 


27 


12* 


?7 


125 


27 


126 


27 


127 


27 


128 


27 


129 


27 


130 


27 


131 


27 


132 


27 


133 


27 


13* 


27 


135 


27 


136 


27 


137 


27 


138 


27 


139 


27 


1*0 


27 


1*1 


27 


1*2 


27 


1*3 


27 


1»* 


27 


1*5 


27 


1*6 


27 


1*7 


27 


1*8 


27 


1*9 


27 


150 


27 


151 


27 


152 


27 


153 


27 


15* 


27 


155 


27 


156 


27 


157 


27 


158 


27 


159 


27 


160 


27 


161 


27 


1*2 


27 


163 


27 


16* 


27 


165 


27 


166 


27 


167 


27 


168 


27 


169 


27 


170 


27 


171 


27 


17? 


27 


173 


27 


17* 


27 


175 


27 


176 


27 


177 



57 



2.6.32 ROUTINE J 



RBUTlNEI «TVJ 



*T\J 

SJBRBuTlNE RTNJ 

MAP CS.TRBl RSuTINE 

IMTEQ£n CNDIS, «BLD, C«ALF, TrtKSM, 

InTEGEk CICtF,CrMAL»3^»LF.»«CeO 

INTEGER AHCL 



CB^MBN 


/BLM5/ 


CHSET 


, HBUFL 


"Nu^F 


1 


N8-H.H 


, nc*22 


NCh«D 


j 


NMANP 


. N^CTL 


NlSCT 


, 


nmvEQ 


, NPATB 


\1ES» 


, 


NST"1 


, TBSU 


cs 


, 


OS 


» FS 


ss 


, 


RS 


, SS 


C9"<M8N 


/SL<17/ 


ADv>.H(i) 


, CICtfP<?) 


IAOVP 


»l l 


C\/TCR(124> 


, C\TN" 


INTN-1 


31) 


1T\*L(J1) 


, !NTBU,3?) 


STBTx 


321. Til- 


EB(J2), CVB« 


(»9) 


LB^MBn 


/OL<19/ 


CICTF(rS) 


, CT90F(S) 


CnTb 


65) . 


CURBF(31) 


, CyClC,31> 


£N8FF 


3D » 


uG'jT (12*1 


, 5A<TP(3i) 


jLABC 


124) > 


oG»6<124) 


, GUABCU24 


SSSS(i24| , 


TK.1I31 ) 


, «R<8F(3l] 



vbl» S«ar, jBaR. oflay 



IGPI 

\C«I? 

n-i l n< 

»PS» 

TBVTF. 

NS 

SCS 

CPAB ,(ei 

IL? 
<L2 

STUVj|« , 
EMNT(,9o) 
j*aTM 3, l 
iNTDulk^i) 



WTC 



HLIDF 
PTM745I 



U1BCE 
NA[ 



C9"MBN /3L<19/ CC2(129I« DFA]L(69), D»F(17) 

MI31) I RA.»C(258) , RAi(SP(?5g) 

TSTRT(516) 
C8lp3.« rtU2V AHI5T(138)a CvDIS, UCf i 

31.- , F1TBD , FSTFL 

HLIDT(96) i NHOAY , PKC8D 

S»TFL» SRJIS, ThRS*. y H IST(l3H) 
CB^MBm /BL<25/ AHCCU38). Cf"lAL(l7)» CnABUSH) 

STTAB(258) , DISI17) , D"AlF,17) 

FLTAB(S.JO) > HBF , MBDES 

M8FAL/ SBA«(6»)/ SECFC(4)» SCDFC(4), V8LI13S) 
C81H8N /BL<27/13T0P(259)» LK0SPI136) 
C81M8N/3LK28/AJRI J<.),PIA(6)»RC«(2)»HS8(1»I<*P911 (1«),CPK3 

~l»R«(dtu) , HHAP(?) , JCNT > KCNT 

1MC15 i MHSBF , CL8CK i i^INF 

1INCT « TAB(3) » N8N8(S) 
OPENSIBM L"APJ8*01» ICTPR(8 )j LN<AB(128)» KxO(l) 
DIMENSION MBLOllt). CICEFI8). C^IALFlB) 
EUUIVALENCE (HSLO(l). HSB(1)| 
EQUIVALENCE (CICEF(l). ClCbP,])) 
£UUIva l EnCE (C'lALFil). CICTFd)) 
EQUIVALENCE (MARR(l)j L«AP(1)| 
JCNT.6 
IF(CNDIS-I) I, 2. 3 






C"' 


. A-PhASE GREEN 


c 




1 


CBNTINuE 




CALL CuL< 0» 0» 15. 




G8 TB 11 


c... 


. CBNTR8LLERS 8FF 


c 




2 


CBNTINuE 




CALL COL< 1<1.0»L"AP) 




M TB 11 


3 


CBNTINuE 




1FICN0IS-3) 4» 6. 8 


c.»« 


. C8NTR8LLER STATUS 


c 




4 


CBNTINuE 




CALL ClL( 1iC1»L«AP) 




OS 5 u • 1/ NC*RO 




ICTPR( i) . «BLD(2«-I 


5 


CBNTINuE 




68 TB li 


C» 


. :9ntmb^lers failed 


c 





9 
10 



CBNTINuE 

CALL CCLI l.:»t.LMAP) 

39 7 N • 1» NC*RD 

ICTPRiM • -CMALF(2»N) . 1 

C8NTINLE 

38 TB 10 

CBNTINuE 

IF(CNUIS.NE'I) GB TB 11 

CIC STATUS 

E 
CALL CUL(1»0.2«LMAP) 
38 9 N ■ 1. NC«Rli 
ICTPR(N) • CICEF12.N) 
CBNTINuE 
C8NTINUE 
CALL ClS(N-1CTL/L1AP/ ICTPR) 

Q 
CSNTlNuE 

detlriine the surveillance display sesired 

nl • 512/INBMO/B) 
OS 12 !•> • 1'NL 

L N«AR( v) • 



12 


CBNTINuE 






IF(SRDIS.E^'O) GB TB 


13 




IF(SRDIS«E3-1 ) G8 TB 


1» 




LiB TB 20 




Cf 

C 
13 


. SUXVEIuLANCt DISPLAY 


8F 


CBNTINuE 






KTMLD . 







3* 


1 




3» 


? 




3« 


3 


. CRDIS 


3» 


4 




3» 


5 




3» 


6 


, 


3» 


7 


, 


3k 


a 


* 


3» 


9 


, 


3k 


i: 


, 


3* 


n 


i 


30 


i? 




3* 


13 


i 


3» 


Ik 


, 


3» 


15 


, 


3k 


16 




3* 


17 


, 


3» 


1? 


t 


3» 


19 


, 


3« 


20 


, 


3« 


'1 




3k 


22 




3k 


23 


t 


3k 


24 




3k 


25 




3k 


26 


l 


3k 


27 


t 


3k 


28 




3k 


29 




3k 


3C 


j 


3k 


31 


i 


3k 


32 




3k 


33 




3k 


34 


U/CPN8Ti 


3k 


35 


l 


3k 


36 


i 


3* 


37 




3k 


38 




3k 


39 




3k 


40 




3k 


41 




3« 


42 




3k 


43 




3k 


4k 




3k 


45 




3* 


46 




3k 


47 




3» 


48 




3k 


49 




3k 


50 




3k 


51 




3k 


52 




3k 


53 




34 


54 




3k 


55 




3k 


56 




3k 


57 




34 


5! 




34 


59 




3k 


60 




34 


61 




34 


62 




3k 


63 




34 


64 




34 


65 




34 


66 




34 


67 




34 


68 




3k 


69 




34 


70 




34 


71 




34 


72 




34 


73 




34 


74 




34 


75 




34 


76 




34 


77 




34 


78 




34 


79 




34 


80 




34 


81 




34 


82 




34 


83 




34 


84 




34 


85 




34 


86 




34 


87 




34 


88 




34 


89 




34 


90 




34 


91 




34 


92 




34 


93 




34 


94 




34 


95 




34 


96 




34 


97 




34 


98 



58 



CALL BCDTH (MTHLD.LMAP) 

CALL SOLI O'LMAP) 

66 TB 18 
C... TCS SURVEILLANCE EQUIPMENT FAILED 
C M 

1* CBNTlNoE 

MTH|_D . 

CALL acDTH CMTHLD/L^AP) 

CALL SOL(13»LMAP) 

IX ■ u 

08 17 jZ • 1, MMVED 

IX. I * ♦ 1 

CALL oiTdl (UMALF, I*,KZ,0> 

IFUZ..VE.0) 58 TB 15 

CALL jEToI (C-1MA L » Ix«<Z»0> 

IF(KZ.tQ.O) S8 T8 16 
lb CBNTlNuE 

CALL halF| IOTDBJ U/KZ) 

CALL PTSflLNKA^.KZ.g) 

16 CSMTINuE' 

17 CSNTIN06 

C't'.t INSERT L'NkA* ARRAY STATE BITS INT8 LmaP ARRAY 
C L 



1« C8XT!\ U E 

IX • 3i»329 

SB 19 I • 1/ 256 

CALL haLF<i_NhAR.I»«.Z) 

KX'J(1)>(<Z«2*«8«KZ)*Z«*8 

CALL jETdl (KxD#5»<a1»0) 

CALL IjETBl («.XU/?1,<X,0I 

CAUL PTBI (LMAP, IX»5«KX1<0) 

CALL PTBI (LMAP, IX»21,KX,0) 

IX . IX ♦ 64 
1* CSMINuE 

j9 TB c 7 
L . ..t FL1» DATA 
C."t DETERMINE PARAMETERS 
20 C9MTIN.LE 

MTMLO ■ THRSH 

IFIPRCBO.LEO) GB T8 21 

IF(PRCBQ-2)22,23»27 
C,.». 8CCUPA\CY 

^21 CSNTlNuE 

CALL SjLI 5»LMA"> 

ITHRT.l THRSM.2.. 15 ]/10u. 

CALL TcSlP(AHcC , ITHRT, 0< NMLNK, LuDSP, LNhaR, LmAP, ThRShi 

IiB TB 18 
C.... V8LU«E 

C N 

2d CSNTImuE 

CALL SDL1 b'LMAP) 

ITHRT • THRSH«2 

CALL TCSLPIVBL . ITHRT* 0, NMLNK, LKDS P # LNKAR. LMaP, THRSH) 

t>8 TB 18 
C.'" SPEED 

C 8 

23 C9MTINUE 

CALL SCL( 7»L*1AP) 

ITHRT o THRSH»4 

CALL TCSLP(SBAR, ITHRT. \, NMLNK, LKDSP, LNKAR, LMAP, THRSH) 

b9 T8 ]8 
27 C9NTINUE 

RE'URN 

£N0 



3* 


99 


3* 


100 


34 


101 


34 


102 


3* 


103 


34 


10* 


34 


105 


34 


106 


3k 


107 


Ik 


108 


3k 


109 


3* 


110 


3k 


111 


34 


112 


34 


113 


34 


110 


3k 


115 


3k 


116 


34 


117 


3k 


118 


3k 


119 


3k 


120 


3k 


121 



34 


122 


34 


123 


34 


124 


34 


125 


3, 


126 


3* 


127 


34 


128 


34 


129 


34 


130 


34 


131 


34 


132 


3» 


133 


3*. 


134 


34 


135 


34 


136 


31 


137 


3k 


138 


34 


139 


34 


1«0 


34 


141 


34 


142 


34 


143 


34 


144 


34 


145 


34 


146 


34 


147 


34 


148 


34 


149 


34 


150 


34 


151 


34 


152 


34 


153 


34 


154 


34 


155 


34 


156 


34 


157 


34 


158 


34 


159 


34 


160 


34 


161 


34 


162 


34 


163 



59 



2.6.33 SUBROUTINE BCDTH 



ReuTlNH BCO'h 



C • ->CDTV 

SJ»S?JTI «E BCDT" (.'IX, LA) 
Ci... SSJTIrtf T8 LNTER TmRESHBLD v»LJE !>■ MAP ARRAY 
C i-i^LSYtD BY S60T1NE J 

&I-EMSI9M lA(1) 

I9FS • 32.JJ 

". ■ IX 

"O • M 

»* ■ 16 

B8 2 K • 1. » 

MB • 10/10 

MR • M^ • 1D«M'J 

DB 1 I a 1« * 

mc ■ M«/a 

MB • MR - S'"Z 
IX . 6.«(<Z-1) ♦ IftFS ♦ 5 
CALL "TBI <LA,Ix,MB»CI 
«Z • <Z-l 

MR • MC 

1 CSNTINLE 

»3 . m,, 

2 C^TIr.uE 
«ETuR.< 
END 



35 


1 


35 


2 


35 


3 


35 


it 


35 


K 


35 


4 


35 


7 


35 


9 


35 


9 


35 


10 


35 


11 


35 


1? 


3b 


13 


35 


1» 


35 


15 


35 


16 


35 


17 


35 


18 


35 


19 


35 


p 


35 


21 


35 


22 


35 


23 


35 


20 



60 



2 . 6 . 34 SUBROUTINE CDL 



R3UTINEI C3L 



CDL 
-..^RBjTI ,E C5L(I«J.«#L») 

59-JTr.t T9 SET C8'iT04LLE ! » JISPLAY SMTC-ES AND LESE\"1S. 
P98CEDURE E rp LevED dV ""JJTIVir j. 





LEUE'„J 1 • C9^T^SLLF« STATUS 




LEJENJ 2 ■ CIC STATjS 




LEUENl) i • bPS C^T^LLE" STAT 




LEUENlI t • C9vTRPLLt?S FAILES 


;i"E 


»S!3'« lA(1 1 


CALL 


PTSI( L A, 37.1.0) 


CALL 


PTSI(lA.IOI.J.O) 


38 1 


IX • 1. * 



irilXiEQ.K) <» • 1 

IA • (,.,•< tx-1 ) ♦ 165 

CALL "TBI (LA. IA.Kx.Ol 

C5MTI ,uE 

KX • 

If IK .E'J. 15) «X • 1 

I A . 8 085 

CALL PT9I ( LA, IA, «x< 

RETURN 



39 


1 


39 


? 


39 


3 


39 


fa 


39 


c 


39 


(■ 


39 


7 


39 


B 


39 


9 


39 


ir 


39 


u 


39 


12 


39 


13 


39 


It 


39 


15 


39 


16 


39 


17 


39 


1? 


39 


1" 


39 


J? 


39 


31 


39 


2? 


39 


23 



61 



2.6.35 SUBROUTINE CLS 



rdjtI'.e: CuS 



CLS 
SJBRSjTI'iE LLSl\»l.A» IC) 
■iSJTlNt T8 SET C8NTS81LES LAMP STATES 
El B LBYi;i3 By »6l/TI\IE J 
^l'EMSIS ■ t<(|li !C!1) 
I • N 
u • 1 
* • 1 



la^ST . :<7.32 




C9^TInlE 




IX ■ 32«(J-1) ♦ 


1 


[Y'« IX ♦ 30 




C'^TlNuE 




!»!• 3S«(K-1) ♦ 


I8FST ♦ 5 


]Y2. Irl ♦ 16 




CS^T! YuE 




C»UL JlTdl ( IC» 


K/IZl.C) 


C*LL PTBI (L»» 


Y1.U1/0) 


C»LU 3ETSI (IC< 


X*l» IZ2/0I 


C»LL BTBI (LA/ 


YJ. IZ2.0I 


I • I • 2 




IFlI.Lt'C) J9 T9 4 


* • «. 4 2 




IX" In ♦ 2 




iriu.LE.lYi cs 


T9 2 


j ■ J ♦ l 




Cj8 T8 1 




RET^R". 




E.MJ 





37 


1 


37 


2 


37 


3 


37 


• 


37 


5 


37 


6 


37 


7 


37 


8 


37 


9 


37 


10 


37 


11 


37 


1? 


37 


13 


37 


1» 


37 


15 


37 


U 


37 


17 


37 


1" 


37 


19 


37 


SI 


37 


21 


37 


?? 


37 


23 


37 


2» 


37 


25 


37 


?6 


37 


27 


37 


28 


37 


»9 



62 



2.6.36 SUBROUTINE SDL 



*8UTHE> S3L 



C * SDL 

S'JHRBuTlNE SDL( I<L*> 
C... 39UTHE ™ SET SURVEILLANCE OISPLAY IF3EM5S I , S T6 |« 

c ps-»cedl«e employed by psutivt j 

C L£t>ENU S . 8CCUPASCY 

C L£*»ENJ 6 • VBLU'iE 

C LEliEM) 7 • SPEED 

C LEUEm; 8 • JUEJE 

C LEl>EMi 3 • ST9PS 

C LEbEM 10» DELAY 

C LE<»EN<J 11« PASSEMJEw UAIN 

C LE^EMS 12» SUSES he l PED 

C It'JENLi 13. SJPV E'.urP f AILED 

C LE'JEN^ !<•■ BPS SU«V r'JUIP FAILED 

L/PENSI8'! LAID 

1 • 1 

;u i <.i»i_ 
iA.fc».(<-i )*■>^l 

CALL PTBI ( L A, IA,0,. I 
1 C5^TI\uE 

|FII.E^-Ci! S9 ti ? 

IA>6». 1+101 

CALL PTBI (LAi IA,l,ol 
I C9MTIM.E 

R£TUP\ 



36 


1 


36 


? 


36 


3 


36 


« 


36 


5 


36 


6 


36 


7 


36 


S 


36 


9 


36 


10 


36 


11 


36 


!? 


36 


13 


36 


1 <t 


36 


! S 


36 


16 


36 


17 


36 


18 


36 


19 


36 


?~ 


36 


SI 


3e 


'2 


36 


23 


36 


2» 


36 


25 


36 


26 



63 



2.6.37 SUBROUTINE TCSLP 



191 -'. A u -l 1?, •?>, 



TC-LH 

SJCROuTI JE TCSLP { LP. IT, IF.NL.LO. LR. LA, I TO I 
i TCS L!:.< PARAMETER P«9CESSI"-3 SUfc)«8UT!'.E 

E-I^LBTED BV R8UTINE J 

1-TEGE-. OFAlL 

CS^Mg* /i-L*19/ CC2I129I. DFAJLI691. BSFI17), 
. 11(311 » «A»BC(2S8) , WA^SP(?58I , RTC 
. TSTRT<516) 

B PEAS I-'. uJ(l >,LP{ 1 ).LW( D.LAI 1 ) 

I • IF ♦ 1 

39 6 . ■ 1> NL 

38 T9 (1.2.1,2), I 

CALL haLFil^.NjK-:) 

33 T9 (»,i», i. 3), I 

C*LL jET-Y<LP»m»KZ> 

33 T9 1+.1.3.3). I 

IFIKZ.GT.fT) S3 T9 6 

38 T9 5 

IFIKZ.lE.MT) 59 T9 6 

C8MTIN..E 

CALL 3ETBY(_>FAlL» M, IFAlLl 

IF( IFA1L-NEO) G8 T9 6 

CALL HALFlLU.N, [x> 

CALL PTaY(Ll.IX.B) 

CS^TlNut 

CALL 3LUTH[ 1TR,LA> 

RETu«\ 

FN'J 



38 
38 


1 
? 


38 


5 


38 


1 


38 


5 


38 


6 


38 


7 


38 


a. 


3s 


9 


38 


10 


38 


11 


38 


1? 


38 


13 


38 


1» 


38 


15 


33 


16 


38 


17 


38 


IB 


38 


19 


38 


20 


38 


21 


38 


22 


38 


23 


38 


?» 


38 


25 


38 


26 


38 


27 


38 


28 



64 



2.6.38 ROUTINE K 



C • *TN* »0 J 

SUSR8UT I JE KTNK »0 ? 

C 10 3 

C SUB-BUTI^E RTM< BUILDS DISPLAYS F6R THE CRT AMD TRIGGERS THE »0 1 

C DEVICE »HEN IT IS COMPLETE. 10 5 

C ID 6 

I*UuE* ArtCC / BYTCT/ BSI , C1CCT. CICEF, CICSf, CtC^C/ »0 7 

. CICTF, C1»LE. Cm"AL< CnSfC, CNTLN. CWTF), CRTFfp, CRTNM, *c 8 

• C-(T«i, .C« T *1» CkTa2, CRTBl, CRTBJ, C><TDl, C<TD?# CUP8F, »q 9 

• CBNTS, p'TAB, *CPN1T, CTClC» CmLnG, CLE\G, DTLsG, D*L / »0 10 

• D T TAo, D"»DE/ D1S . D"A L F, DFAJ L , £NTf L , EmSfF, F|_TAB/ »0 11 
. G'oGU , HBLD , P»T\i*, SLDFC. SECFC. SUAh , V8L , CNT10/ "0 1? 
. CHSET, FTAb , FTB.C, FLPFL. FMTCH, FhTMU, FmTTY, SSSS i »0 13 
t ^I\T. HRF *0 1* 

IViTEGE" TImLh »0 15 

I\TEUE« HEAO , FAILH, X'«B\E« TYPE . ACKN , TKUN , HIST j *0 16 

• 9 f F8u, SYSH , HrBDE, T-<UMU. CNUMM, S^Unn, BFST«, SYNC , »0 17 

• UCST, CIC* , mkIng, CSTaT. 8FST / CYLTh, HINTv, TKNPH, »o IS 
. -I1L"«< ^LNk/ H iL „K. H L N<8« HNCNT, 9IRCT. PmESS. Y-b , <t 19 

• T IMB.hL'MKD" 1 »0 20 
DI'ENSIB* -ILMKD"(3) "0 21 
3J1EMSI8. LIC H ( 5)» CICSTl 3), CNum h { 5)# CSTATI 3)/ »0 2? 

. CYLT«( 3)/ DIRCTl 9). H1LNK< 51/ H2LMI11)/ »0 23 

• HJLNM11I/ HLNKBI It)/ HNCKTI »). H[NTV( 7)» *0 2* 

• HEAD(8»6H HIST| 2), HMBOEl 61' HmINj( »), »0 25 

• ICRt 6)/ ICLl 6)< IHCNTl 6)» 8FF8NI 21/ »0 26 

• BFSTI m, P*ESSU9)/ LPHAS< 71/ 8FST«< »>, 00 27 

• S'SH( 31l» SNJHH< 3), SYVCI 3)» TMB( »)/ *0 28 

• T1MBI 21/ TYPE! 3)1 TRUM 8)» ACKNl 21 » *0 29 

• TRNPHI 6)< XN8NEI 31/ FAILH(lg) *0 30 
CS^Me.M /HARUS/ F-1TTY , FMTNU I FMTCH , »0 31 

• ITRMi(2> «0 32 
CS r M8S /KKKKK/ CMT10 , N«C I NIC* / NMC16 / »0 33 

. TRuNKI) »0 3« 

Ce^MBN /KCRT / BYTCT(2! , CRTR2(?) , CRTNM , CRTA1 i »0 35 

. C«TA2 »0 36 

C8"ihB\ /8LK6 / FMC , FMARK , MAST|91 » *0 37 

• 11AST i JMAST , KMAST / E~tAST > »0 38 

• H1AST . hMAST , QMAST / HAST / »0 39 

• SPACE i MP8KY , OCNT *0 *0 
CB1M8N /BL<10/ CICSCI16) . CICSY(8) » CTlSC(1*I > »0 11 

2 CTLSY(4)»C* J SECt31MCNTZNU9,,|. N KCN(69>* *U * ? 

• TIMCh(*l . 2SI 132) »0 »3 
CB^hBN /SL<11/ HSB1502) , 1G15(««) 1 KW j *0 *» 

2 L^KDI (6<.).ND8L(69nNe^CS»NecNT(»)/ *0 »5 

• T8SU »0 »6 
C8^h8N /8L<12/ D(138l» DAY«K, JJ, * »7 

• LNKSH3) , PATNM(3) , PRTFL . SCNSII?! , »0 »8 

• SLCNT(29)»SSFi. »0 »9 
C81M8N /BL<13/ DWLI259) , DKLP(l7) . E8DC i »0 50 

1 FTAB, FTBwD, n8EIF(b9) »0 51 

C9^"8M /BLKU/ CLENG , DTLN3 t C^LNG I »0 52 

• DUMY1, DUMY2, CNTLN(372).ENTFL(S)/ »0 53 

• KCLI17M KCTFI17). KCSF(l7), »0 5* 

• >J1VAR(31) , SEMSKI8) , VRINTI123) i LNKPT(6»I *0 55 
C81M8N /BLM5/ CHSET , HBUFL I IGPI i *D 56 

• 1MUMF , NBnCH , NC*22 » NC»02 » »0 57 

• NLwRO , MHANP , NMCTL » N M LN< < 10 58 

• N"SCT i NMvtD , NPAT8 / NP3» i »0 59 
. \RESP , NSTM1 , TBSIZ • TBYTE » *0 *0 
. CS , OS i ^S » NS < *0 *1 
.OS , RS i SS . SCS *0 6? 

CS^KSm /BL<17/ ADvNh(8) , CICBP(g) » CPABiC!! » *0 63 

• I»DPI|8) i CNTuR(12») i CNTNM , IL2 > *0 6» 

• INTN-i(3i) i ITN«L(31) . INT8U(32) « <L2 / *0 *5 
. STBT-i|32l, TIKEBI32)j QVB»(fc9) *0 66 

CB^MBn /BL<18/ CICTFIS) , CT8DF(8) i STBYJI8I i *0 67 

. CNT B (62) $ CUSBFlJl) , CyClC(31) i EnINT<»96I i *0 68 

• E^8FF(3l) , GGGT(12») , GA^TPi3l) > jB»TP(3i) < »3 69 

• GLABCl U») > GGGG(12») < GUABCM21) / HT0u(»96) i »0 ?0 
. SSSS|i2») i T<1(31) , -RK8F(3i) »0 71 

C81H8N /BLK19/ CC2I1291* 0FAILI69). DBF!17)» *0 72 

• MI (3i | , «A»8C(258! , RAWSP|?58l » RTC . *0 73 
. TSTRT(5161 *0 7» 

CB^MBN ,BL<22/ CRTBl(512l , CRTB2(612l » CRTDl i *0 75 

• C*TD2 , CRTFl , CRTF2 , FLRF L »o 76 
CS^MBN /dL<25/ AHCC113»)» C^^ALIW)* C<TABI258i» »0 '7 

• D'TAB(258l > 0ISI17I , DHAtF(i7) i DHBOE * »0 78 
. FLTAB(8001 i HRF , MBDES i NAI , »0 79 

• NBFAL. SBAW(69)» SECFCID* SCDFC(I), V8LI138) »0 80 
C8" l HBM/BuK28/AGR(14),PIA(6)»RC1(2)»HS9(l*)»AP8ll ( 1» I , C°'^U. CPN8T» *0 81 

. 1ARR( g » ) I HMAP(2) , JCNT I KCNT i »0 8? 

• HNC15 , -HSBF , CL8CK . «"IIVF , »0 83 

• "INCT > TAB(3) . N8N8(8) *C 8» 
C91H8\ /1ISCL/ CICINH(8).LS0l3)«CYCREF(5l »0 85 
IVTEGEk CICINH.CYCREF »0 86 

C »0 87 

DATA NRTIt-/ 0/ »0 88 

3ATA IRPAR/M/ »0 89 

DATA LEAD /126/ »0 '0 

DATA Im8ME/1S/ *0 91 

DATA IDEL /127/ »0 9? 

DATA Ic»(l l'ICC(l). ICR(2)i ICC(2)» IC»(3)<ICC(3)i 1CR I » I . I CC I • I » »0 93 

• ICR(5)» ICC(5)J ICR(6|< ICC(6)/ 2,24, 2, 26, 2,2», ?»25« 2#23« »D 9» 

• 5,2*/ »J 95 
JATA IhCNTa),lHCMT(2)» IHCNTO), IHCNT(»), IHCNT(5), IHCVT(6)/ »0 96 

2», 2*/ 28, 28« 32/ 32/ *0 97 

»0 98 



• 2»» 2»» 28, 28, 32/ 32/ 

DATA LPHASIl >,LPHAS!2),LPHAS(3)/LPhAS(»),LPH»S(5)/LPhaS(»), 



65 



LPW*S(7)/ 65< 65» 66< 6,6' 67/ 0< 68/ 
DATA TltS/t TI i. i st I '/ 
DATA H£A0(lfl)»HEAlJC2.1 )»HtAD(3,l ) , Hf AC ( t« 1 ) .HEAD ( 5» 1 I . mca; ( 6, J ) / 

'*»*»• . I FAp , 'LLWEi » • STAi , 'TUS I , i**i*'/ 
DATA "tA0(l/2),HEAr, (2»2)»HEAr> ( 3,2),MFA r :(<»,2i,HE»D(5<2!<"IEA:(6»2)/ 

'*»**' . • SYS' » iTES ■ . 'STaTi , iuS »" , t»«t •/ 
DATA ritAa(lj3),HE*D(2j3)iMEAD(3,3),MEA3(<,,3),HEAD(S»3l«HCA3(6»3)i 
-itAJ(7/3)/ '»«»«' » • CBN' j 'TOBL' i ilES ' . 

'ST*Ti , tuS »' > '•*» l / 
DATA htAiJ(l»»),HEA0(2*4)»HEA0(3t»WHEAD(»»t)»HEAD(o«*)»wkAC(6»»)i 
HiAD(7jt>/ •>»*»• , i OFT' , 'E.CT9' j 'R ST' » 

'ATuS' « ' *«*' . '» ■ •/ 
DATA Ht AD( )<5]»hEAD(2,'j) .Ht a -3(3,5), he AB(»j5)<HEAD(5»5 I iH£A;(6,5 I . 
HEAJ(7,b),MtAD(8»5)/ •*»»*' . ' !MTi , lERjFi < 

•CTI6' , is ST> , 'ATJSi , i Hf 1 , '$ ' / 
DATA «EAi3(l»6)»HEAC(S#l»)»HEAD(3 < 4),HEA0(i,,4) # HEAC(5 # i| / MEA3(6»6)i 
HFA0(7»6)»HtAp<8»6)/ '»»«,»' , •* A i , it T i . 

•E '- • , IT I I , IJ N I , <l(fl' , • » j J ; • / 
JATA F«lLH / 'TYPF.I , i MBi , i. Ti , I I -E ■ , I MINI , 
•T-. • , iuAV i , i ALKi ,i. i , • Typi , it V . 
•B. • / iTISEl , I "Si , INTn ■ , I DAYi , I AC j 



DATA »..HlE / lALL 



•NBHMi 



■ AL 



»0 


99 


to 


100 


to 


101 


to 


10? 


*0 


103 


•0 


lot 


t0 


105 


to 


1J6 


to 


107 


to 


I OS 


tC 


109 


to 


110 


to 


HI 


to 


11? 


»0 


113 


10 


lit 


to 


115 


"0 


116 


»0 


117 


*0 


11? 


to 


119 


to 


1 = ^ 


to 


121 



DATA 


Type 


DATA 


AC<N 


DATA 


ThUN 


# I 


VL N' 


DATA 


HIST 


DATA 


jFF'JN 


DATA 


SYSH 




TEhNi 


. i 


:s ' 




T IrE' 


• i 


NO" 1 


• • 


C9M 


DATA 


H.'.BDE 


• i 


"AIL' 


DATA 


ThJ.Vl 


DATA 


Ci\U1H 


DATA 


S -U1H 


DATA 


»f ST» 


JATA 


SYNC 


DATA 


CICST 


DATA 


CIC-i 


DATA 


n; ING 


DATA 


CSTAT 


r>ATA 


BtST 


DATA 


CyLTH 


DATA 


HINTV 


. ' 


3EC9' 


DATA 


TkNph 


« • 


TlbNI 


DATA 


Ml I'JK 


DATA 


HjJLNK 


* I 


aci 


DATA 


«jL>iK 


■ • 


pi 


DATA 


HlNi<9 


DATA 


HuC'JT 


DATA 


Hi.S<D 


L,ATA 


DIRCT 


# i 


\,„ i 


DATA 


PrESS 


t i 


AT i 


« i 


jRaO 


# i 


ITBRi 


, i 


3j • 


. • 


:ss ' 




5Tfc1< 


» i 


-J ' 


• ' 


A Si 



•C.8NTI , 


•DET i 


i .'j i , 


• Y 1 


•TP.UN' i 


'CATEi 


luSBE' . 


ii» • i 


•"ISTi , 


■BHY i 


■SFF ' I 


<9\ i 


•UESIi , 


i^ED i 




•C!t i 


' ii / 


"JOE i 




■ i\ i 


•STbYi , 


MAN i 


•TRUNi , 


'CATti 


•CBNTi , 


i^RLLi 


•SECT- . 


• IBN i 


•BFFS' , 


•ET (. 


i"ASTi , 


•ER Si 


• t-lC • , 


■STATi 


•ThLDi , 


• ACT. 


>1|N,l , 


• A Pi 


• C.9MI , 


• STAi 


•OfFS' , 


•ET (I 


•LYCL' . 


•E LE> 


•INTEi . 


•*VALi 


ImDS)I / 




iCBNTi , 


•RBLLi 


'****' , 


• LIN' 


i LI' , 


• NK > 


•(.UP I . 


• YBi 


i N' j 


•9 i 


•IT i , 


• V • 


■LINK' , 


• INBl 


•N9T i , 


I IMST-i 


lDU'1M"i • 


Y LI '< 'N 


IN I , 


• S i 


•SE • . 


•S« • 


'd>u ' , 


•FAIL- 


•EFOLi , 


• S«Ui 


i CBM , 


•TRBLi 


•UETEi . 


itjMlNl 


■BF Si , 


•HuTDi 


• DBE' . 


'S NBi 


in A • . 


IN U 1 


■E • / 





'CBM-:' 
'D LI' 



TBD ' 

D LI' 
ES -■ 

NB, • 
ACT i 
YNC. ' 
JS ' 

IMHI 
HASF • 
TUS • 
ENTRi 
NOTH' 

UuRi 

E« j. 



L\<l 

LJmEi 

PHaS' 
PM ' 
PERAi 

Rur-F' 

E i 
E8 • 

URF • 
ATTi 
TOB"' 
LER • 
E EFi 
B»Nj i 
T RE • 



'UAL 

• FA 

• SEC 

'MBDE 
' DE 

'TRSP 

'ST 

. U1BE 



i M 
' 8R. 

' Y) 
■ATI9 
'N TR 
'TA t 
S 



'TI yF 
'NTED 



'CEIE 

'F-PT 

IN , 

•STAT 

'FECT 

'J I 

'SPUN 

• R E 



i P»T' 

' IL.jR' 
'T. . 



EiJIVA L ENCt (C"ALf (ll.CICTFI?) I 
EQUIVALENCE (CICSFdliCTBDM?)) 
EuUIVA L ENCE (CICEFH |,CICUP(?)I 
EUU I VAlENCE (H8LDI1 |/HSB(2) ] 

EQUIVALENCE (LNKPHI 1 l.LNKPTIl I ) 

IFL • 3 

IT8T • ENTFL(l) 

CH£C< E^TF.L FLAOS AND CALL PAIL TaPLE UPDATE IF BN 

10 CONTINUE 

IT9T • ITBT + ENTFLI IFL) 
IF( ITBT^LT.O) jB TB ?0 

filiY FLAi IS 9N - CALL FAIL TAblF UPDATE RBUTINC 

CALL <fTJ 
RETURN 
2: C5NTI ; u l 

IFL • IFL-I 

IFt IFL.3T.D GB T9 10 

SET UPDATE RATE TB 25 SEC9N0S 

*CNT • 2d 

SET UP INDE> FBR CRT 1 



REL> / 



INS (' 
i AN'-; I i 

i*«* i 

• LN< ■ 
'PEED' 

• DIR ' 



CTrRi , 


IN3 ' . 


IflNi j 


US Ti , 


IVFNi , 


F SY' , 


: jS' i 


L E' . 



BSI • 
'CUT 



to 


12? 


to 


1?3 


to 


l?t 


to 


1?5 


to 


126 


to 


127 


*0 


128 


to 


129 


to 


no 


to 


131 


to 


132 


to 


133 


to 


Ut 


to 


135 


to 


136 


i ! 


137 


t,\ 


138 


tc 


139 


to 


ltc 


to 


1M 


to 


lt2 


to 


lt3 


to 


l«t 


to 


115 


to 


lt6 


to 


lt7 


to 


ltg 


to 


1»9 


to 


150 


to 


lbl 


to 


15? 


to 


153 


to 


15t 


to 


155 


to 


156 


to 


157 


to 


158 


to 


159 


to 


160 


to 


1*1 


to 


If-? 


to 


163 


to 


16* 


to 


165 


to 


166 


to 


167 


to 


168 


to 


163 


to 


170 


to 


171 


to 


172 


to 


173 


to 


17t 


to 


W5 


to 


176 


to 


177 


to 


178 


to 


179 


to 


180 


to 


181 


to 


182 


to 


183 


tu 


i;t 


to 


1«5 


»- 


1«6 


tu 


187 


to 


188 


to 


189 


to 


190 


♦ 


191 


tc 


11? 


to 


193 


to 


19t 


to 


195 


to 


196 


to 


197 


to 


198 


•3 


199 


• 


200 



66 



iriCHTrl.SE>' I G8 TB 3C 

SET jP INDEX F9R CRT 2 

IC"T . l 

bSl ■ «Ot9 

CSMlNuE 

If I ICRT.E'0.1 ) of" TB A3 

CRT 1 BPERATI9N CESIREC 

CRTN.1 • 1 
C'TFl . 3 
jB TB 50 

CRT 2 9PERAT19N DESIRED 

CSMTl-.oE 
C3Tn>-, ■ j 
C-TF2 ■ C 
C9NT1\^E 

CRT-2111 IS CRT 2 . C-iT32(2| IS C-T i 

IFICRT-212-ICRT )>NE'u> US TB 92; 
IF { IC-<T.E3.1 ) oB TB S3 

CRT I DESIRED 

C'T*1 • 1 
jS TO 73 

CRT 2 CtSIHED 

C9'-TI muE 

C.RTA? . l 

CS^Tl.^E 

CA*L UISIMMSI ) 

bET CjR-Jt'v.T TIMfc BF DAT 

CALL ToDAMTih/ 
IdTTE • JB'iC-./^ 

FILL FIRST «BRD BF CRT BUFFER WITH LEAD»INj HB«E CuRSBR, DEL, 
DEL 

CALL PT9T(C-<TBl,bSl,LEA0) 
CALL PTr?r(C-<TBl,L(3I»l. I"J'1£1 
CALL PT5Y(CR'Bl,3SI*2» IUELl 
CALL PTdT(CXTBl»USI*3#IPELl 
BSI • -. SI.» 



PUT CURRtMT THE BN 9'JTBUT PAGE 



CALL OWTIU-1B.1.BSI) 
CALL CvVT(T">d,S,dSI ) 

LBCATE DESIRED PAoE "EAJIvU AND PUT IV CRT BJFFjR 

IFI ICRTiES.l 1 u9 TB 80 

C»'T 1 DESIRE^ 

IC<DE • CRTO] 
G9 TB 90 

CRT ? DESIRED 

C3ATI\uE 

1CBDE . CRT J? 

CB'.TI\jE 

CALL Si- TCR(iSI, ICR, ICBDEl, ICC( ICBDt I > 

(.all CsvT(HE*D(l#IceDEl»IHCNT(ICeOt),BSl ) 

uB TB DtSlRfC PAuF FBRMAT 

FAILURE STATUS - loci 

SYSTEM STATES -3:0 

CbNTRBLlE* status • ->-,o 

Dt.TECT 8 R STATuS - »-j0 

I \TcRSfc.CTIB\ STATUS - 6 ;0 

PANIC "'ESSAuE • 6-.10 

GO TB I 100.3;0'AJO-t u 3.600>8 OUlCBDE 

FAI L 'JRf STATES TA-LE 

CB iTI\i,E 

MB* . I. 

ICL • 2 

CALL StTCRl-JSI, IRB,» ICBL) 

./CAR • 72 

CALL CiVT(FAI L H, ',CHAR.,9SI ) 

IF(nBFaL.QTO) C.9 TB 123 

CB^TI ._E 

IRBi . 17 

IC-L ■ <■ 

CALL Sr 'C«(03I. IRB»/ICBL) 

\C h aR • 12 

CALL C'.VT(A"<OSEiNChAR»BSI) 

uB TB ,33 

C9-TIi E 

lSIUE • ■: 

LC^T • J 

IF(N9fAL«GT.3S) liS T1 13J 

\FAL2 • N8FAL/2 

oS TB lie 



A3 


231 


to 


20? 


♦ 3 


233 


to 


23A 


• 


205 


a - 


236 


A3 


237 


to 


23! 


*>0 


239 


• 3 


213 


"0 


211 


a ; 


21? 


*> r 


213 


A ~ 


21. 


AJ 


21 e 


A^ 


216 


A3 


217 


A3 


21! 


A3 


219 


A3 


d?- 


A3 


221 


<*: 


22? 


•> ] 


223 


»j 


2-?A 


*o 


2?5 


* ^ 


226 


A3 


227 


A3 


2'9 


Aj 


2?? 


••J 


2Jn 


a; 


231 


A c 


23? 


»; 


243 


AC 


23« 


A J 


2)5 


A - 


2)6 


A3 


217 


A J 


2*5 


AC 


23? 


A 3 


2A3 


14 j 


2-1 


•3 


2«5 


A_, 


2'. 3 


AC 


2«A 


a :■ 


2A5 


AJ 


2a6 


A3 


2»7 


A3 


2»S 


A3 


2a 9 


A3 


25? 


"J 


2=1 


*> j 


25? 


A3 


253 


»0 


25a 


A3 


21? 


A3 


256 


AC 


257 


A3 


2?" 


A. 


2")9 


tj 


263 


AJ 


2*1 


A3 


265 


AJ 


263 


A3 


26A 


"J 


265 


A3 


266 


A3 


267 


•3 


268 


A3 


269 


»D 


2>3 


A3 


2'1 


A3 


272 


A3 


273 


to 


2'A 


to 


275 


to 


2/6 


to 


277 


to 


278 


»0 


279 


to 


230 


A3 


2H1 


to 


28? 


to 


293 


to 


2«t 


to 


2«5 


to 


256 


to 


2*7 


to 


28>t 


to 


2S9 


to 


2 q 3 


to 


Sl'l 


to 


29? 


to 


2^3 


to 


29t 


A3 


295 


to 


296 


to 


297 


to 


290 


to 


299 


to 


300 


to 


301 


to 


3C2 


to 


303 


to 


30A 


to 


3)5 


to 


JJ6 


to 


307 



67 



u: c5MTr-u.fc 

^«L? • 19 
IT C9''T! j„E 

>T1 . FAU 

-»F»L2 » '.FsL' J - 19 

^Tc 1 • nF«L2 

vf«L? . vTl 

IF (NSF.L.GT.'SvYF ) ' SF*L' M «U«F 

IFTt • I «'Jf A..J )»lo«l 
15. C9MTI\uE 

!«•)» . J 3 .,U L ?»\Tf 

IC9L • 2»LSIJ£ 

CALL SETCB(HSI/IR8.»IC9L) 

C»LL ufcTtiV(F|_TAp, IFT3»1» ITYPr) 

1'rPE . ITV^E.2 

,W« . » 
160 C9NTI »ut 

CALL C WT( r»P£( I TYPE), '.CHARTS I ) 

bSI • eSI ♦ 1 

IFTh . IFTr>/2 ♦ 1 

CALL h*LF(FLTAO,IFTh*1.IE3N> 

CALL i)IS\f(SSI. IE3M 

PUT MlJu^b AND ~1I\jTLS P CRT rJuFFFB 

bSI • cSl * 1 
\CHAH • b 

I^Ea > ( lFT8*fc)/IbVTE*t 

CALL CwT(FLTad( 1njEX)»NChAR,RSI ) 

SSI • ~SI t J 

Id IBVTE.GT.J) 38 T8 170 

PUT IJM-l AND DAT 1', CRT r, FFEH F 8 B ]4 BIT «9R0 "AC-iI-E 

MCHAR • 3 

I\J£X • INuEX ♦ 3 

C*LL C i'/T(FLTAb< I\UE»)»NCHAR,BSI ) 

bSI • t -SI ♦ 3 

\,CHA* • 2 

I \JE» • IN';: Ex ♦ 2 * 

CALL C VT(FLTAi)( INCtX ) , SCHAR, 3S I ) 
US T6 l»j 
17 J CS*TlNuE 

put "aNT" and day in crt -jfffjr fbr a 32 hit «eo »»c-i!\r 

IVJEX • IFT" ♦ 5 

PIC«- UP 1ST T»9 CHARACTERS 8F MBNTH A.mO SHIFT LEFT 2 ,»VTJS 

IFTB" • IFTS/» ♦ 3 

NTEf-P ■ FLTAHI IFTB» » 

NTEf-P . mTE"P • 256 • 25e 

\C rt A- a 2 

CALL C .vT( NTElP.^CtAK.aSI ) 

mChaR • 1 

CALL CwT(FLTA t MlFTe-,.l>j»'C*.R..6SI) 

BSI ■ cSI ♦ 3 

pic«. jp jay and Shift left s characters 

NTEmP • FLTABl lrT9,«ll 

vTEr>F . ,,TL M P • 25= • 256 
\,C H AR • 2 

CALL C>-vT< mTEmp,nChAR,uSI I 
1», CBMINlE 

Put ACK\8-LEruE In CRT BUFFER 

bSI • rSI . 14 

NCHAR . 1 

CALL jF-TBYIFLTAR. IFTJ, IACK1 

ML* • MCK ♦ 1 

CALL C'.YT(AC<N( I AC- 1,\CHAH,BSI 1 

IFTfc . IFT, - 16 

LCNT . LCNT ♦ 1 

\F«L2 • vFAL? • 1 

|F<\FAi_2.GT»3) Sd TB 153 

C9!FLtTtO LlST!\j FAILU»ES in L£fT SIDEj Ch£Ck IF PA'jr IS FULL 

IF(LC iT« iE»3«) GB T? 2>.o 
I r ( I F Td-LE.31 US TO 9CJ 
.Slbt • 37 
|F(LC ttt.iT.MTl) G8 T5 190 

mFal? . -n 

G9 TB 15.' 
liu CSNTImuE 

NFAL2 . 1 

\T2 • ,\T2 ♦ 1 

jj T5 lbu 
2J'J CSMTInuE 

T«u CATll) LIST 

H»» . 27 

IC1L • Is 

CALL 5tTCRl0SI»IR9«/ICBL1 

nC-aR • 32 

CALL CwT(T«uN/".CHaR,hSI I 

CALL UtS'.^HSI.NBFAL) 

gb t;i ajc 

SYSTEMS STATuS 



»c 


308 


*0 


339 


»9 


313 


»D 


311 


*I 


31? 


*0 


an 


*0 


31* 


»D 


315 


♦ 3 


316 


*0 


317 


»0 


319 


*0 


319 


»J 


323 


»0 


321 


»3 


32? 


»o 


323 


*0 


32* 


fc v 


325 


*c 


326 


*3 


327 


''C 


32» 


**3 


329 


*0 


333 


*»0 


331 


»i 


33? 


•0 


333 


*c 


33A 


*c 


335 


*>G 


336 


*»c 


337 


*0 


333 


»0 


339 


*u 


3«: 


*o 


3M 


»3 


3»? 


*c 


3»3 


»c 


3" A 


»0 


3»5 


*>0 


3»6 


<• J 


3»7 


*c* 


3»< 


»0 


3»9 


*»c 


353 


»G 


351 


*3 


35? 


*»0 


3i3 


•c 


35k 


*»C 


355 


*c 


336 


*v 


3b7 


*>0 


358 


*tu 


359 


*»J 


3*3 


»c 


3M 


»0 


3<>? 


»0 


363 


*a 


36. 


»3 


365 


»0 


36 6 


*J 


367 


*>■- 


368 


*u 


349 


*»c 


370 


»3 


371 


»c 


37? 


»a 


373 


»o 


371 


»o 


375 


»o 


376 


«o 


377 


»0 


379 


»3 


379 


»3 


3«3 


»0 


391 


*0 


3"? 


*0 


393 


*c 


391) 


*0 


395 


♦3 


386 


»0 


387 


*0 


398 


»0 


389 


»0 


393 


»0 


i^l 


»0 


39? 


»0 


393 


*0 


39l> 


*0 


395 


'0 


3°6 


»0 


397 


*0 


398 


»c 


399 


»0 


♦ 03 


»0 


♦ 01 


»c 


»3? 


to 


»03 


*>c 


»0» 


♦0 


»35 


»0 


*06 


*>0 


*37 


*0 


*08 


*0 


• 39 


»J 


MO 


»o 


Ml 


to 


M2 



68 



304 CBNTINuE 

IRB» • * 

ICOL • 3 

C»LL StTCR(flSI.IR9v.,ICBL) 

NC H AR • 8 

CALL Cn*T<hIST,NChaR,BSI > 

NCMAR • 3 

CALL CNvT<8FF8N(HeF*l)» '•'CHAR, BSI ) 

l«h • 6 

1C9L . 16 

CALL Sf TCR(BS!,I«8»,ICBL) 

\C- I »H . 122 

C»LL C~VT(STSH, NCHAR, BSI ) 

JR* • -> 
310 CBNTINuE 

36 32j NSCTN.j,Ni1SCT 

I-3 • ■ 

CICC7 • 

ICOta . S ♦ NSCTN 

IC*L ■ 2 

CALL StTCWl8SI.IRB-.ICeL) 

CALL D1S it"(SSI»NSCTN) 

tlSI • rSI . * 

■nCHAR . t 

CALL CVT(TI"Ch<nsCTn),NChaR,BS! ) 

BSI • uSI ♦ 3 

C*LL &f TdV(J^eOE. NSCTN, M8DE) 

f.BJE ■ "JDE ♦ 1 

CALL C vT(~.~'8DE<>1?3E),NCHA'<.RSl) 

bsi ■ f>si * s 

CALL jt T dY(-iB0ES.NSCTN.>180t) 

hSOE • -I80E ♦ 1 

CALL Ct.vT(HiBDE(M8DE).NCHAR,8Sl ) 

bSI • tSI ♦ 3 

CALL uET9Y(PATNh,NSCTN«NPAT) 

NPAT • NPAT ♦ 1 

CALL DIS>JH<BSI,NPAT> 

BSI o cSl t 8 
C 

C CBuNT THE NUMBER BF CIC'S F8R THIS SECTIBN 
C 

CALL CIC<IR3»IR*.CICCT> 

C»LL ulSNM(BSI.CICCT) 

bSI • fSl . * 

CALL DISNM(BS!»SCDFC(NSCTN> ) 

esi ■ hsi ♦ a 

CALL DISNM(BSI.SECFC(NSCTNI I 
380 CBNTINuE 
B9 TB SOU 



c 




c 


CBNTR3LLER STATUS 


c 




400 


CB^TKuE 




lI^E ■ 




CNT10 • 10 




IRBw . it 




ICU • 3 




CALL SETCR(BSI,!RB«.ICBL) 




I\0EX . i 




NCNTR . 1 




I9UT • 




1F( IC8ufc.Ej.4) G8 TB *80 


•10 


CBNTINuE 


c 




c 


CBiTRSLLER STATUS 8UTPUT PAtiE 


c • 





CALL BtTBl 1CMALF, !\DE».ICF,1 | 

1F( ICF.N'E.O) G9 TB 4*0 

CALL CitTBI (H9LD, INDEX. ISTSV.l ) 

IFI ISTbV.E j-0) GB T8 4bQ 

LALL StTbl IUCSF. INDEX. ICIC.i ) 

IF ( ICIC'tC.O) UB TB 430 

CALL jtTil (CICEF, INDEX. ICEF.l I 

IF( ICEF .ECO) U9 TB 470 

I C-"AR . 3 

CSNTI \Lt 

CALL 0IS'if(BSI»NC'4TR) 

CALL StBDEfBSI. I CHAR, I BUT, LINE. IRTRN, 

1F( IHTRM.E3«1 ) GB TB 900 

CBNTlNuE 

NfNTR . NCnTR * 1 

IF(NC'.TR.GT. J1LTL) G9 T9 540 

IN'JEX ■ INJtX ♦ 1 

U9 TB *10 

CSNTI -.i.-E 

1CHAR . J 

UB TB »23 

CMT1 uE 

j3 460 N«1,«9NCS 

CALL jt TBY(NTC'-T.N,NeC8) 

IF (NC'TR.E J.'-IBCB) jB TS 430 

CBMTInuE 



STATgS fljTP'jT PAGX 



C»LL GE T 31 (UIS, IN'JEX, I0IS,0) 

IF( 101":,. -E.0) U8 TB 500 

CALL Jr TJI < J-IAuF.I OEX. IMLF.JI 

IF( 11i> iNE.U) US Ta 520 

CALL UtTBKLMMAL, InDLX. IC81F ,01 





ICHAR . 1 


470 


UB T9 -2j 
CBNTINuE 
ICHAW • * 
UB T5 *20 


C 

c 


UETLCTBi 


c 

480 


CSNTlVt 



*0 


tl3 


to 


tit 


*0 


tl5 


»0 


tl6 


»0 


tl7 


tO 


tlB 


to 


tl9 


*0 


*20 


»0 


t21 


»0 


t?2 


♦ 


*23 


♦0 


4?4 


*0 


425 


*0 


426 


♦ 


t27 


to 


t28 


to 


t29 


to 


t30 


to 


431 


to 


43? 


to 


t33 


to 


t3t 


to 


t35 


to 


t36 


to 


t37 


to 


t3? 


to 


t39 


to 


*»o 


to 


t»i 


tc 


tt? 


to 


443 


to 


t»» 


to 


t»5 


to 


t»6 


to 


tt7 


to 


448 


to 


449 


to 


t50 


to 


t51 


to 


t52 


to 


453 


to 


t5t 


to 


t55 


to 


4S6 


to 


t57 


to 


t5P 


to 


459 


to 


t*C 


tc 


461 


to 


t62 


to 


t63 


to 


46* 


to 


4*5 


to 


t66 


to 


467 


to 


468 


to 


469 


to 


470 


to 


*71 


to 


472 


to 


*n 


to 


474 


to 


475 


tj 


476 


to 


477 


to 


479 


to 


479 


to 


480 


to 


4"1 


10 


41? 


to 


483 


to 


48* 


to 


485 


to 


486 


tC 


487 


to 


t8B 


to 


♦ 89 


to 


t90 


to 


t91 


to 


49? 


to 


t93 


to 


494 


to 


495 


to 


t96 


to 


t97 


to 


498 


to 


499 


*0 


SCO 


to 


SOI 


to 


50? 


to 


5(^3 


to 


50* 


to 


505 


to 


506 


to 


507 


to 


508 


to 


S09 


to 


510 


to 


bll 


to 


512 


to 


513 


tu 


S14 


to 


515 


to 


516 


to 


517 


to 


518 



69 



If ( IC31-F.NE' "II 38 Tb 530 

C9-JTI *lE 

NC^TR . '.C-T"? + l 

If (NCMR.GT-NMVED) G3 T9 5*0 

INJfc, • INiL-tX ♦ 1 

03 TB .33 

CSNTPJuE 

CALL JISNMiBSIjMC'JT 1 *) 

IC"A(i • 1 

CS*TI\iuE 

CALL SOBOEieSI, ICrlAK. I BUT, LIVE. IKTSN) 

IF ( I-T-N.E„M ) 5b TB 900 

0? TP 490 

CALL :)lS\r"(8SI»\CMH) 

IC-AR . 5 

09 T6 310 

CSNTINuE 

CALL JIS .^(OSI.VCNTK) 

IC-iAW . J 

09 T9 sic 

C.S JT 1 Jut 

IF( IBUT.'^E.O! oB TO 93w 

09 T9 113 

INTERSECTS ' STATUS 

C5*TI\uE 

l^k . 3 

iC-tL • 27 

CALL StTCRldSI.IKB.^.ICBL) 

nC«A* . 17 

CA.L C.WMC*UKi,\CMAr,,oSI ) 



NIC • ITRNMI ICT + l I 
CALL DISNK(BSI.KMC) 

v 1L1 . «»C - I 

«tC» • \1C1«« * 1 

\.*cio • .f;i«i= ♦ ; 

C*LL alT'iV(I-JTJ0#>J«Cl6»!DU« 

If I ICjr..E5..) o« T5 b 8J 
613 CSVTIxuE 
H»» . 3 
ICL ■ 1 ■ 

CALL SS.TC1e!S|« H"./ ICBL) 
\C*Ai- . 12 
CALL C /T( 3 VJ— .►.C-iA'J.aSI ) 



m^S 



sectibv Mur-at* 



CALL Of TBYlCiSEC.Mi'OVMS) 

NISI • N~IS - 1 

CALL DISNf"l9Sl.\'MSl 

BSI • dSI ♦ 5 

NC">AK . 16 

C»LL O.VT(BFST*,NCl-'AS,BSI ) 

CALL OETaVlCURBf.NlC/ !C9fS) 

CALL IC^ALiaSI. IC9FS) 

BSI • oSI ♦ 6 

\CHA« • 12 

PUTS 3UT ^ASTLR SYNC ME'DfR BUT OBFS f»8T PUT BUT 
LATER 

CALL Cr\VT<SYNC.NCHA'<»BSI > 

BSI • oSI ♦ » 

IBSI . BSI 

BSI • rSI . 1 

CALL C*LF(bSI,l ] 

\C H AR . 12 

CALL CnVTICICST.NC-AR.bSI I 

1C«0 ■ V-1C1/32 

ICBIT . -JfCl - (lC*0O2> 

IN'JX • N1Sl»NC"P0 ♦ IClD 

I A • I,«0X»32 ♦ KBIT ♦ 1 

I a • :t c 

CALL SETdl (CICSC. Ix» 1CIC.0) 
If ( ICIC'EOOl uB T8 76U 
CALL OF.ToIlCICSF.Io, ICIC.l) 
If I ICIC'EQO) OB TB 770 

C*uL OtTai (Cictf. ia/ icth, i ) 

If I ICT^.EQ.O) 09 TB 6?0 

JH . 1 

u 9 TH c »; 

623 C3 'TIVA 

CALL JlTdl (CICEf . Io, ICIC.l ] 
If ( ICU.EC. J) u9 TB (=3J 
CA.L ;tTiI(CICl\H, IB/ICIC/l) 
If ( I(..l'_t'jE«0) Jl T3 630 

I-l • 

09 TS ( ij 
330 C9"'TI ,ut 
IH . 3 

f>»i ce-.ii ..f 

NC*AI< . < 

CALL C VICTICMI Im).\CHAR,BSI| 

aS I ■ r SI ♦ 5 

\CHA^ . if. 



95 N TILL 



40 


519 


40 


520 


»o 


521 


40 


52? 


»0 


323 


40 


524 


43 


525 


*0 


526 


•3 


527 


*0 


528 


» 


329 


♦ 


330 


*0 


331 


»0 


332 


»0 


533 


40 


534 


40 


535 


♦ 


536 


40 


537 


40 


535 


40 


339 


40 


340 


40 


541 


43 


54? 


40 


343 


4C 


544 


40 


545 


4 0' 


5»6 


40 


347 


40 


54B 


40 


549 


40 


350 


40 


551 


40 


552 


40 


553 


40 


554 


40 


555 


43 


556 


40 


557 


40 


558 


40 


559 


4C 


56T 


40 


561 


40 


562 


40 


363 


40 


5f\4 


43 


365 


40 


566 


4u 


367 


40 


568 


40 


569 


40 


370 


40 


571 


40 


57? 


4C 


3/3 


40 


574 


40 


375 


40 


576 


40 


577 


40 


578 


4-3 


5 79 


40 


38? 


40 


581 


40 


582 


40 


583 


40 


384 


40 


385 


40 


386 


40 


387 


40 


588 


40 


589 


40 


393 


4j 


591 


40 


392 


40 


593 


4 


59» 


40 


5*5 


40 


596 


40 


597 


40 


590 


40 


5»9 


40 


630 


40 


631 


40 


63? 


4. J 


633 


40 


634 


40 


635 


40 


636 


40 


607 


40 


60S 


40 


6 39 


40 


61D 


40 


611 


40 


61? 


40 


613 


40 


614 


4 


615 


4 U 


616 


4U 


617 



70 



CALL CkVT(h11m,,NChAR,BSI ) 

CALL (jtTBYIliGGu.NIC*. IGG3) 

CALL DCiALlBSI. luGo) 

IPiAS . 1 

CALL jhEEN(BS!»NMC»« IPHASl 
C 

C PUT 9UT CINTRBLLEw STATUS 
C 

V.C-AK . 12 

CALL CVT(lST»T,NChAR,BSI ) 

CALL oETbII-'BlO. IB, ISTBY/1) 

IF( ISTuY.EJ'j) GB T9 750 

IH . 5 
650 CS-mTI'juE 

VCHAH . 4 

CALL C^VTInlBDtl H), mC^AR.BS! ) 

BSI • ^SI ♦ 5 • 

\Chah . 16 

CALL CVT(UFST f \CH»R,BSI ) 
- C*tL-iiC TBV(E\l8fF,\r-.C, IE9FF) 

CALL DCHLlBSI, IEBFF) 

IPNAS . 2 

I\J£X . Mi"C» * 1 

CALL jREEN(BSI, INDEX. IPHAS) 
C '. 

C LEA.E FIRST ENTRY 8N TMJS LINE BLaM< 

C 

BSI • -.SI + 51 

\CHAR • 1? 

CALL C\VT<CYLTH,nChaR,BSI I 

BSI ■ BSI ♦ * 

CALL 3LTBY(LYCLC.NmC,ICYCL> 

IH . 2 

IF(KCTF<ICrCL*ll«EQ»0) I-i • 1 

c 

C PUT 8UT Y 8K N tes MASTER STNC ENTRY 

MCMAR . 1 

CALL CNvTIACKM IHJ.NCHAR. last ) 

CALL DCMaL(BSI»KCL( ICYCL+1 ) I 

IPWAS ■ 3 

IV.IEX > MMC* * 2 

CALL l3HEEN(OSI, INDLX. IPHAS) 

CALL CkLF(BSIjl) 

NCHAR • 28 

CALL CnvT(hIntv,NChAR,BS1 ) 

CALL ChLF(BSI.l) 

IMJEX • NTC16 

JS 660 Iol.lh 

CALL DlSNf (BSI. I I 

CALL PTBY(CWTB1.BSI, IRPARI 

BSI • dSI ♦ 1 

CALL 3ET8Y<lNTOU«ISDEX»lNT0) 

IF(INTL.EQ.O) u9 T3 67u 

CALL aClAL(BSI.INTU) 

INDEX • INDEX ♦ 1 

IFII.Ei.t7) CALL CRLF(BSI.l) 

IFI I.Eu-1*) CALL CRLF(BSI.l) 
66v CBNTlNuE 

38 T8 68o 
670 CBNTlNuE 
C 
C ERASE LAST 4 CHARACTERS 

BSI • uSI - » 
690 C8NTInuE 

]R9„ • 1* 

IC8L . 25 

CALL StTCRlBSI, IRH-, IC8L) 

CALL GtTSY("I.-4MC.vT«) 

ITINTR.E J.„> 58 T9 690 

\C M AK . 2» 

CALL C'.VT(T>* jPh.nChAR.bSI ) 

1.9 T9 900 
690 C8NTINUE 

BSI . BSI ♦ <t 

NCHAR • 20 

CALL CnVT(H1LN«,NChAS.BSI ) 

CALL CRLF(BSI,2| 

NC^AR ■ *». 

CALL CnvT(h2LNK,NChAR,BSI I 

CALL CRLFlBSI.l ) 

CALL C\VT<h3lnk,NChaR,BSI ) 

CALL C«LF(USI,2) 

LlNKT.6"(N,-iL-l) 

LlNK«LIN<T»6 
710 C9NTINl.L 

IFILlNn.LE.LINKT) G8 TB 900 

CALL H»LF(CNTLN,LINKT*1»LNKC) 

IFILNK.L.LT.0) U8 TO 725 

BSl«BSI+l 
C 

LN«C ■ LNKC ♦ 1 

CALL DISNM(BSI.LNKC) 

BSI . B SI . 5 

CALL uETbyilnkph.lnKC.LPH) 

CALL PTBY(CRTB1.BSI.LPHAS(LPh*1 ) ) 

B5I • BSI ♦ 6 

CALL 3ET3Y(LNKWI«LNKC»LDI) 

NCHAR . 2 

CALL CNVT(DIRCT(LDI+1)#NCHAR,BSI) 

BSI . ,SI ♦ 5 

CALL 3tTr)Y(DFAlL<LNi<C. IDF) 

IF( IDF.NE.C) Gt) T9 730 

CALL 3ETBY(N0BL,LN<C»NI ) 



*0 


618 


»0 


619 


»0 


62? 


*0 


621 


»0 


6?? 


»0 


623 


*0 


62» 


»0 


625 


*0 


626 


»0 


627 


»0 


628 


»0 


629 


*0 


630 


to 


631 


♦ 


632 


*0 


633 


*3 


63» 


»0 


635 


»0 


636 


*0 


637 


*0 


638 


*o 


639 


*o 


6»e 


to 


6M 


»0 


6»2 


*0 


643 


»0 


6ub 


*0 


6»5 


*0 


6»6 


»0 


6»7 


*0 


60g 


♦0 


6*9 


*0 


650 


»0 


651 


*0 


652 


»0 


653 


»0 


65(t 


»0 


655 


»0 


656 


»0 


6F7 


to 


658 


»0 


659 


*0 


660 


»0 


661 


»c 


662 


»c 


663 


*0 


6 Mi 


»>: 


665 


*o 


666 


»c 


667 


»0 


66! 


*0 


669 


»o 


670 


*o 


671 


»o 


672 


♦ 


673 


♦ 


67» 


*o 


675 


»0 


676 


♦ 


677 


to 


679 


»0 


679 


»J 


ooo 


»". 


681 


»0 


6«2 


»0 


693 


»0 


69k 


"J 


685 


»0 


696 


*0 


687 


*0 


688 


»0 


689 


• 


690 


*0 


691 


*0 


692 


"0 


693 


*0 


69« 


*0 


695 


»0 


696 


*0 


697 


»0 


698 


"0 


699 


»0 


700 


»0 


701 


♦ 


702 


*0 


703 


»a 


70» 


»0 


705 


»0 


706 


»0 


707 


»0 


708 


»0 


709 


»0 


710 


»0 


711 


»0 


712 


»0 


713 


»0 


71t 


»a 


715 


»o 


716 


»o 


717 


*o 


718 


»o 


719 


»o 


720 


*o 


721 


*o 


722 



71 



IF(M.t'J.O) G9 T8 735 
OIL -1ALF( AMCC»LN<C» I»HCC) 



CONVERT *CCUP»MCV T8 PER CENT anj SCALE frbm bis Te R: 



IA-1CC . IAHCC/128 

Iamcc • lArtCC • 100 

Iahcc . IA-LC/256 

CALL 0ISnI"(5SI. IAHCC) 

rSI ■ bSI ♦ » 

CALL halFUBL.LNKC, IvBL) 

IVBL ■ lv» L /2 

CALL DISNM(8SI« IVBL) 

BSI • dSJ ♦ * 

CALL jf TBY(SBAR,LN<C, IS8AR) 

ISiAR • [ I53ARt2)/* 

CALL 0ISNM(9S1»ISBAH) 
720. CSMTINuE 

CALL. Ct-LElnS 1,1 ) 
'di> C9MTI vuE 

L1NK.T a LIN<T » 1 

u9 T8 710 

IN8FERATIVE LIN*. 

73; CS MTlNuE 

\C-"AR • 16 

CALL C<vVT<'-'LNKc,NC>-AR,bSI > 
CALL CxLFIUSIfl) 
lINKT . LlN«T ♦ 1 
t>9 T8 7-1 C 

Dun-V LI..<S 
73b C9NTI MuE 
NCHAR.12 

CALL C.vVT<r,L\Kj>".,MC»»R,BSI ' 
CALL C"Lf (JSI.1 ) 
u 9 T9 723 

NB lINKS 

7"'. C9NTI\uE 
153, . 20 
IC»L • 25 

CALL SETCR(»SI» IR9,, IC8L) 
\C*aR • 16 
CALL CWT<H\iCNT.NC*AR,aS!l 

08 T9 yQJ 

PUT 8JT STAi-OBY 8R FAIL "FAJE" 

750 CSNTINuE 

CALL otToI (L1ALF, IB, ICi1LF,l I 
IH . 6 

IFIIC-IlF.E,--) !h . 1 
38 T9 b50 

PUT 8JT N8T INSTRUMENTED 

7SJ CSNTlNuE 
IH • * 

09 T8 6*0 

CIC RELEASE 

77J C9NTI 4L.E 
I-i • b 
09 T9 6*0 



PA .IC ERX9R MESSAGE 

100 CBNTI'JuE 

fcSI • nSI * ? 
JF(NMRTiNE.O) J9 Tft 820 

IBYTE ■ 25 

09 81; I. l.b 

IBYTE . IBVTE ♦ 1 

CALL l3f Tt)Y[T-!3. I.ITI") 

CALL PTBYIPlfSS, IBYTE.ITI-1) 
HIO C9NTI'MoE 

N^RT • 1 
820 CSNTlNuE 

MCHAR . 195 

CALL CvVT(P , 'FSS,NCMAR,dSI ) 



CRT iRAP-UP IjET BYTE CtONT AND TRIGGER The CRT DEVICE 



900 C9NTI ^E 

IF(BSI.3E«20*8) BSI • BSI • ?0*8 

mCRT • 2 

IFICRTNl.EJ'C) NCRT . 1 

i)YTCT( »CRTl • US] 
*2J IFKRTrifCRTFa.EC.j) C.8 TB 910 

"ASTKr AST) . 1 

RETURN 
310 CBVTINuE 



TBIu IS AN ASSEMBLY LANiUASE R8UTTNE TB CALL THE CRT OE^ICE 



CALL ThK 
RETURN 

ENJ 



»0 


723 


»0 


. 72* 


to 


725 


to 


726 


*0 


727 


»0 


728 


»0 


729 


«0 


710 


»c 


731 


"0 


73? 


»0 


733 


»0 


73k 


to 


7 35 


•0 


736 


»0 


737 


»0 


738 


»0 


739 


»0 


7*0 


to 


7*1 


»0 


l«t 


»0 


7*3 


»0 


/»» 


to 


7*5 


»0 


7*6 


»o 


7«7 


»0 


7*8 


»0 


7*9 


to 


750 


*o 


751 


»o 


75? 


»0 


753 


»0 


75* 


to 


755 


»0 


756 


»0 


757 


»0 


758 


*0 


759 


to 


7*0 


to 


761 


»0 


752 


»0 


7*3 


to 


76* 


to 


7*5 


»0 


746 


to 


767 


»0 


768 


*0 


769 


»o 


77(1 


to 


771 


»0 


77? 


»0 


773 


»0 


77* 


»0 


775 


»0 


776 


»0 


777 


»0 


778 


to 


779 


»0 


780 


»0 


781 


»0 


782 


to 


783 


to 


7«* 


to 


785 


to 


786 


to 


787 


to 


78? 


to 


789 


to 


790 


to 


791 


to 


79? 


to 


793 


to 


79* 


to 


795 


to 


796 


to 


797 


to 


7f8 


to 


799 


»G 


soo 


to 


801 


to 


802 


to 


803 


to 


80* 


to 


805 


»0 


806 


*J 


807 


to 


808 


»c 


809 


to 


"10 


to 


811 


to 


812 


»c 


813 


to 


81* 


to 


815 


♦ 


816 


•0 


817 


»0 


81S 


•0 


819 


»0 


820 


•0 


821 


»0 


82? 


to 


823 



72 



RBUTIvt! C!C 



2.6.39 SUBROUTINE CIC 



SJ-lRBuTI'.E UCMCEf i IR*/CICCT) 



SUrjOUTINE C.IC C8u\TS T"E NUMBER BF ACTIVE CRITICAL 
IMr"SECTI9N CB'-TRBLLERS 



INPi.T 
ILEF 



ClCcT- 



. *6-"l INDEX r 8R BIT INTERLEAVED AROAV 
. »8nD I\D£X F8R BjT ARRAT (CICSC) 
.U18ES hf CIC'S T8 BE RETURNED 



INTEGER LICEF , CICSC , CICCT , CICP? 

cs^bn /i5L<i-/ CICSCU6) , ticsfim . ctls 

? CILSV(»].CNSEC|31 l»CNTZN(19i,LM<CN(f,9l, 



. TImC-ii'O . 

ce^^BN ZiiL^lS/ 
» mmjjMF 
. NL*RD 
. N^SCT 
. NRF.SP 
. CS 
> JS 

C8*N8N A-)L<17/ 
. lADPI(S) 
. PITN.-I, Jl ) 
• SThT"U2) 



ZS! (32) 
C-ISET 
NVCH 
N1ANP 

N^vtD 

NST'U 

DS 

RS 

aDvNm(s) 

CNTCRl 12* I 
IT.f-L(31l 
TI1F8I32)/ 0vei<(*9) 
■-'JU I VALENCE (CICEFU ),L1CBR(S> ) 
I« ■ ICEF 
CBNTINOE 
J9 2.1 I-1»J2 
IN'JXl • (IRJ«3£) ♦ I 
INJX2 . ( IR»«32) ♦ I 
CALL SETS I { C I CEF> I NUXl « 1 3 1 T« 5 ) 
CALL IdLTBI (LICbC. INDX2, JdlT,-) 
IF( IblT+jBIT.E-iS) CICCT • CICCT 
CSNTI\uE 
V-i • IR3 + 2 
11* . H» ♦ 1 
IF( IRJ.lE.^C-?2) 38 TB 10 
RETURN 
EN'.) 



H^UFL 

*Cw22 

NMCTL 

NPATB 

TBSld 

FS 

SS 

CICBP(g) 
CNTMM , IL 
, I-NTSU,32) 



IGP 

NC» 



■N^LNV 
JPB1. 
TRVTE 
NS 

scs 

LPABu 
«L2 



»5 
»5 


1 

2 


»S 


3 


»5 


it 


"5 


5 


*S 


6 


»5 


7 


15 


R 


15 


9 


♦ 5 


10 


»S 


11 


»5 


12 


#5 


13 


»5 


14 


15 


15 


15 


16 


«b 


17 


45 


19 


15 


19 


»S 


2? 


45 


21 


<*5 


22 


45 


23 


45 


24 


»S 


25 


4b 


26 


45 


27 


45 


28 


45 


2? 


45 


30 


45 


31 


»5 


3? 


15 


3 3 


45 


34 


4b 


35 


45 


36 


45 


37 


15 


38 


45 


3? 


15 


»0 



73 



2.6.40 SUBROUTINE CNVT 



r.jtKe: cnvt 



• CNVT 

SJMRBJTI'ME CNVT(ADDR,NUM.BS1 i 

SUsk'BUTINe TS CSNvERT EBCDIC CHARACTERS T8 ASCII CHARACTERS 

IN°uT 

add* • address bf chauacter string 
n'jm . -.umber 9f characters tb be converted 
osi - ckt 9utput buffer (crtb11 st9re index 

i\teue-< add* , bsi 

• CRTbl , TASC 
DIMENSIB'-I ADDR(512), UPPER 

• C8NV1(») 

CeifSN /BLK15/ CHSET 

• 1NUMF , nBmCh 

• NLwRD , NMANP 

• NMSCT 1 NMvED 

• N^ESP , NSTMl 
» CS , DS 

• os 1 f>s 

CB1MBN /BLK22/ CRT6H512) 

• CRTD2 , CRTFi 

THE FSLLB^ING DATA STATEMENT CBNTaINS DECIMAL CBNSTANTS WHICH 
REPRESENT THE UPPER AND L8WER NUMERICAL LIMITS F8R THE EBCDIC 
ALPhA CHARACTERS. (A • I], (J . R), IS • Z>, (0 . 91 

DATA Ld.ER(l), UPPER(l), LB«R<2)» UpPER<2>» LBwER(3l, UPPEPI3), 

L6«ER(4|, UPPER(4)/ 192,202* 208,216, 225,23*/ 239,250/ 

THIS DATA STATEMENT CBNTAJNS THE EBCDIC SPECIAL CHARACTERS 
(NULL, SPACE, .,(.),.«•, 0,1) 

DATA TEBC(l), TEBCI2I, TEBCI3), TE6C(4), TEBClS), TEBCI6), 

• TEBC(7)» TEBC(B), TEBCI9)/ 0, 64, 75, 77, 93, 96, 91, 122,94/ 

TH£ F8LL»»UNG STATEMENT CONTAINS THE CBRRESPBND ING ASCII 
SPECIAL CHARACTERS 



CHAR , 


CHSET , 


CBNV1 , 


TEBC , 


UPPER 




LBwERit), 


TEBCI9), 


TASCI91, 


HBUFL 


, IGPI 




NCW22 


, NCh02 




NMCTL 


, NMLN< 




NPATB 


, NPB4 




TBSU 


, TBVTE 




FS 


, NS 




SS 


, SCS 




CRTB2I512I 


,• CRTDl 


, 


CRTF2 


> flhfl 





DATA TASC(l), TASC12), TASCO), TASC<4) 
• T*SC(7), TaSC(6], TASLI9)/ 0, 3?, 



TASC(5), TASCI61, 
I, »u, 41, 45, 35, 5! 



»B 


1 


»8 


? 


48 


3 


»g 


4 


48 


5 


48 


6 


4H 


7 


48 


? 


08 


9 


♦ 8 


10 


48 


11 


48 


12 


<>8 


13 


48 


14 


08 


15 


48 


16 


4B 


17 


• 8 


18 


48 


19 


08 


20 


48 


21 


48 


22 


48 


23 


48 


24 


48 


25 


48 


26 


48 


27 


48 


28 


48 


29 


48 


30 


48 


31 


48 


32 


48 


33 


48 


34 


48 


35 


48 


36 


48 


37 


48 


38 


48 


39 


48 


40 


48 


41 


48 


42 


48 


43 


48 


44 


48 


45 


48 


46 



THE FBLl8wI'<G DATA STATE M ENT CBNTaINS THE NUMERICAL CBNvrRSIBN 
FACTBRS F3R THE ALPHANUMERIC EBCDIC CHARACTER SET 

48 47 

DATA CoNVKl), C8NVK2)/ CBNvjO), CBNV1I4)/ 128, 135, 143, 192/ 48 4g 

48 49 

IF THIS IS AN ASCII MACHINE, JUST ST8RE Oata [n CRT BUFFER 48 50 

wIThBUT CSNVERTING 48 51 

IFICHSET.E J-48) G8 T8 80 

FIND NUIrtER PF CHARACTERS TS BE CONVERTED 



10 C9NTINUE 

INDEX . 4 



48 


52 


48 


53 


48 


54 


48 


55 


48 


56 


48 


57 


48 


58 


46 


59 



CALL jtTHTlADDR, 1N.CHAR) 
CBNTI'.oE 

DETERMINE I> EBCDIC CHARACTER IS ALPHANUMERIC 

IF(CH*i<.LT.L».<ERUNDEX)) GB TB 30 
IFICHAi. GT. UPPER! INDEX] ) UB TB 30 

C8n»E-»T Ch 4 ^»CTER TB ASCI! AND STARE IN CRT BuFFER 

CmaR . CHA>< - C8NV1IIN0EX) 

CALL PTBTICRT81, BSI, CHAR) 

faSI • -.SI ♦ 1 

09 TB 70 

CflNTINuE 

INDEX . INDEX • 1 

]F( INUt A.GT.i) G8 TB ?u 

I^DEx . V 

CBNTInlE 

FIND EBCDIC SPECIAL CHARACTER 

IF IC-ia-t.NE.TEBCi INDEX) ] GB T>j 6C 

STtJhE ASCII SPECIAL CHARACTER IN CRT BUFFER AND INCREMENT 
CBU..TER 

I ASC ■ IASCI INuFM 

C^NTI juE 

CALL PTBT(C*TB1,8S1« IASC) 

SSI • i-SI ♦ 1 

US TB 70 

CSNTINuE 

INDEX . IliJtx - 1 

IFI INDEX. GT' J) G8 TB 4U 



48 


60 


48 


61 


48 


62 


48 


63 


48 


64 


48 


65 


48 


66 


48 


67 


48 


68 


48 


69 


48 


'0 


'8 


71 


48 


72 


48 


73 


48 


74 


48 


75 


4g 


76 


48 


77 


48 


78 


48 


79 


48 


80 


48 


81 


48 


82 


48 


«3 


48 


84 


48 


85 


48 


86 


48 


87 


48 


88 


48 


89 


48 


90 


48 


91 


48 


92 


48 


93 


48 


94 


48 


95 



74 



ASCII EQUAL SIS\ • 61 

. 1ASC • 61 
GB T9 BJ 
70 cS^TINuE 

INCkt^E^T CahRaCT^R ceu'iT A^O Check FBR LAST 8^E 

IN a Ih, * 1 

If ( I^lE.Su' 1 ) i"S TO 10 
=>EIUR\ 

ST9KE. ASCII CHARACTERS UIReCTLY INTS CRT SUFFER 

SO CBNTI'juE 

39 90 I.1.-.UM 

CALL liETi3Y(ADDR, l.CHAR) 

CALL PTB»|C k TBl,BSI.CHAR) 

bSI • oSI ♦ 1 
90 Ce^TlKuE 

RETURN 

EhO 



«8 


98 


48 


97 


48 


98 


Ag 


99 


• 8 


130 


48 


131 


48 


10? 


48 


133 


48 


13* 


»« 


1-5 


48 


136 


48 


1-7 


48 


138 


«8 


139 


48 


113 


IS 


111 


»8 


112 


48 


113 


48 


114 


48 


115 


48 


116 


48 


117 



75 



2.6.41 SUBROUTINE CRLF 



HSUTI.t: C«i.f 



c 


• CWLF 

SJ^HSullxE CPU* (nSi.M 




c 


Sba-eoTINf I.RLF SPACES T«F 


CRT CJGS*"' D9.'. (M l 


c 

c 
c 


bSI • <-QT OvjFFtO STSOE. t 
. *'WF;K (jF U**ES T« 


OEX 
SPACE r««\ SN CRT 


c 
c 


I\TEOE« »S! , CUB1 
C9""<9\ /dL<22/ CRTSl(bl21 , 
• C«TC2 , CPTF( , 
D«'* IC</ 13/ 


CHT92(Si?) , COTOi 
CSTFJ i FtRF t 


DS 13 I»Xj% 

CALL PTBV(C«TB1,BSN IC«) 
bSI . oS! ♦ 1 

tsi . .SI ♦ 1 

-Eluw, 





51 


1 


51 


■> 


51 


3 


51 


» 


51 


5 


51 


6 


51 


7 


51 


S 


51 


9 


51 


1C 


51 


11 


51 


1? 


51 


13 


51 


!» 


51 


15 


51 


It 


51 


17 


51 


19 


51 


19 


51 


?- 


51 


?1 


51 


?2 



76 



2.6.42 SUBROUTINE DC MAL 



RSUTINE! DC1*L 

r. • scial 

SUBRBUTI^E L>CMAL(9SI»NU1S) 
C 

c subrbjtine ucm*l cb^verts a nuiber scaled bi tb nn«src9KDS), 

C INS£»TS A DECIMAL PBJMT An,D ST9RES IT IN THE CRT BL'FFfR 

C 

C INPl-T 

C BSI • CRT BUFFER ST8RE INDEX 

C || U MB . NUMBER SCALED »1 T9 BE CeNVERTED T8 F».l F9R 'AT 



C 



InTECjE" BSI . CRTBJ 

Ce-'hBK, /OL<22/ CRTBK5121I , CRrB2 ( 512) « CRTDl 
. C*TD? , CRTF] , CRTFJ , FL«F L 

DATA IO»V- »*/•■ ■ 

C8NvE«T NUMBER TB 10 • SECBNOS 

\'J" m i.yMB • 5 

CALL OlSMK(»SIi\UM) 

CALL GtTBYlCWTdl,BS!.l«LAST) 

C»LL PTBr(C«TBIjBSl-l/IDP) 

CALL PTBr<C M TBli8SI«LAST> 

BSI . bSI ♦ 1 

RETUR ; 

em; 



50 


1 


50 


1 


50 


3 


50 


« 


50 


5 


50 


6 


50 


7 


50 


6 


50 


9 


50 


10 


50 


11 


50 


12 


5u 


13 


50 


U 


50 


15 


50 


16 


50 


17 


50 


18 


50 


19 


50 


20 


50 


21 


50 


22 


50 


23 


50 


2» 


50 


35 


50 


26 



77 



2.6.43 SUBROUTINE DISIN 



RttJTlNiE! CISIN 



JIS! . 
Sj^t'JTlJE JIS1MBPII 



So ~9JTIM£ LISIN INITIALIZES THE c« T SUFFER 
cPI - :>YTF INDEX F3R C-»T BjFFF- (C9TBJ) 





IMEGE- BPI < CHTH1 






*" 


CB'IMeN /dL<15/ CHSET 


NBUFL 


I3P1 




• 1\uMF t NB^Ch 


NC»22 


NC.D? 




• NCoRD < N*»NP 


NHCTL 


N1LN< 




• VSCT , s-WED 


\PAT8 


vPBA 




• \1ESP , \ST"1 


TBSU 


T3YTE 




• CS » DS 


FS 


\<i 




• as , «s 


ss 


scs 




C9^8\ /*1<Z2/ CRTB1I512) 


CWTd2(51?) 


CRTDl 




• C-<T02 j CRTFl 


C-JTF2 


^LRFl 




DATA Lt»3 / 126/ 








DATA ICLR / 28/ 








iATA I ..EL / 127/ 








DAT* IS3KS/ 25/ 








DATA IbLNK/ 12/ 






c 
c 

c 


Ib'TE • jBkCh/s 






F9H.. 9N£ -6-15 9F BLANKS . 






D8 K IHjIBVTE 








CALL PTBYdbLK*,!. IBLNK) 






c 
c 

c 


10 C9"-TI\uE 






BLA>« t)jT RE^AIMSS »")RDS 


i% the crt Buffer 


\C«TB • (BpI*23»*)/IBYTe: 








ISTRT . SPI/IBYTt ♦ 1 








39 20 lilSTHTjN'CRTB 








CRTBK I ) ■ I3L<« 






c 
c 


20 C9MTlNuE 






ST3i<E FI*ST T-9 a9RDS IN 


CRT aufF E c 





CALL PTBY(C*TBliBPI ,LEAD> 
CALL PTBY(C«TBljBPI*liICLP) 
CALL PTBY(cKTBljbPI»gjIDEL) 
CALL PTBY(C*<TB1jBPI»3j 1UEL) 
CALL PTBY(CHTB1.BPI*4jLEA0) 
CALL PTBY(CKTBl,BPI*5#ISdKlJ> 
CALL PTBY(CHTBl»BPI+6iC0 
CALL PTBY(C<T61»BP!*7»C) 
BPI • bPI ♦ 9 
RETuR . 
EM) 



53 


1 


53 


2 


53 


3 


53 


k 


53 


5 


53 


6 


53 


7 


53 


a 


53 


9 


53 


15 


53 


11 


53 


12 


53 


13 


53 


1« 


53 


15 


53 


16 


53 


17 


53 


15 


53 


19 


53 


23 


5J 


?1 


53 


2? 


53 


23 


53 


2» 


Sj 


25 


93 


26 


53 


27 


53 


2? 


53 


29 


53 


35 


»J 


M 


53 


3? 


53 


n 


53 


3« 


53 


-<5 


53 


36 


S3 


37 


53 


in 


53 


19 


53 


**C 


53 


•1 


53 


-? 


53 


fc? 


53 


**. 


53 


*5 


53 


*6 


53 


»7 


53 


»9 


53 


»9 


53 


sr 


53 


si 


53 


52 



78 



2.6.44 SUBROUTINE DISNM 



RSUTlNEI LIS\h 

C • aisv. 

C 

e sua^euTiME bisnm converts * binary m jm ber ts ascii a>:> stores 

C RESiLT IN The OT BUFFER (CRTB1I 

C 

C DM . BYTE INDEX 8F Cot BUFFER (CRTfcl) 

I^TEuEh op l i CRTB1 

C 

CSlf.B'l /eLi>.22/ OTBl(512) , CKTb2<51?| . CRTDi 
• C*TD2 , (.OTFl , CRTF2 , FLRFl 

SijI • . LIB 

IVOEX . oPI * 3 
C 
C ISSlATE binary DIBIT 



C 



39 2: I>1«* 
I REST . NU.VI0 
IRE" . NOP - IkfST.lc 
IF [ IREST.Nt •:.) GB Tb 10 
IFI [REi- .NE.CI u8 TP 10 
IFI I .E.^. 1 ) li8 T9 10 
IREM • -16 
10 CSNTINuE 



c 


CRT 3jFFt» (C»Tdl) AT LS 


c 






IREf". • HE ■■' ♦ »8 




CALL D TBY(CRTBlf INDEX, !«£*> 




|\JEX . INDE.X - 1 




Nul • IREST 




?j ;bmti\ue 




dpi • epi ♦ » 




R£TuR\ 




ENO 



52 


1 


52 


2 


52 


3 


52 


it 


52 


5 


52 


6 


52 


7 


52 


R 


52 


9 


58 


i; 


52 


it 


52 


i? 


52 


13 


52 


1* 


52 


15 


52 


16 


52 


17 


5? 


IB 


52 


19 


52 


20 


52 


21 


52 


?? 


52 


23 


52 


24 


52 


25 


52 


?6 


52 


27 


52 


23 


52 


29 


52 


3C 


52 


31 


52 


3? 


52 


33 


52 


34 


52 


35 


52 


36 



79 



2.6.45 SUBROUTINE GREEN 



r9uti\e; gseen 



SREEn 
SJSR8JTINE 'JPEENIBSI, INDEX, IPm»S) 

THIS KBjUNE ST8HES TH£ DESIRED PHASE LABEL IN TH£ CRT BUFFER 

INPUTS 

oSI • LPT BUFF£H ST8PE INDEX 

INDEX . INDEX F8R GGUG AND SSSS APWAYS 

|Phas • l a. Phase Gmeen 

2 B. phase gkeen 

3 C-PhASE SHEEN 



MTEUL& 
DftNSI 
C8HMBN 
. THUNH 
C9~1MDN 

• DUmyj, 

• <LL(17 

• -J-lyAK( 
CB^MBM 

. CSNTd, 

• ENBFE, 

• uLABCl 
. SSSSl 1 

DATA AH 
DATA AP 
DATA Ap 
\JHB ■ 
BS1 ■ » 

\CHAH • 

CALL O* 
CALL GE 
1F( (IN 
CALL 3L 
CALL liE 
iOx ■ 
CALL BE 

\U1B a 
CB^TI 
CALL DC 
CALL 
SETUP'. 
END 



BN A 
/<Ki< 

4) 

/3L< 

DUM 

!. < 

31) 

/3L< 

62) 

31) 

124) 

24) 

hAS( 
AS( 
AS( 



APHAS , asi 

HHASI3.31 
«</ CNT10 



NMC 



1.1) 
1,2) 
1<3) 



CLE 

CNTL 
(17) 

SE 
CIC 
CJH 
GGG 

uG: 
Tk 
I API 
AP 



NQ , DTLNG 
N(372I,ENTFL(5>, 

KCSF117) 
Si<( 3) 



TF(8) 

BF(31) 

T(l24) 

GU24I 

(31) 



VRINT( 153) 
CT9DF(g) 
CYCLC<31) 
GAWTP|31 ) 

BUABClia*) 

wKKBF,3i) 



IAS(2»1 )<APHAS(3(1 ) / 'A 

iAS(2,2),aphAS(3,2) / 'B 
iAS(2(3)»ApHAS(3,3) / 'C 



CHlNG 



LNKPTI 
STBYOI 
ENINTI 
GB^TPI 
iNTDul 

','ASE 
i.'ASE 
•,'ASE 



SKI 
8) 

496) 
31 I 
496) 

i.'Ga. 

'. • GR. 
','G*. 




SI 
12 

VT( A 

TBY( 

EX.\ 

TdY< 

TBY( 

INTV 

TdYl 

ISSS 

E 

1AL( 

LF(o 



♦ 6 



HHaS(1,IPHAS),NCHaR»BSI) 
NH v AR,\!MC»NVl ) 
HC4) .GEiNV] ) G8 Ts 10 
SSSS, INDEX/ ISSS) 
vHIM, INDEX, InTv) 

♦ NMClb 
INTOU, ImDX, IVV] 
IW 

HSI,NU1t)l 
SI.1I 



27 


1 


27 


2 


27 


3 


27 


4 


27 


5 


27 


6 


27 


7 


27 


B 


27 


9 


27 


10 


27 


11 


27 


12 


27 


13 


27 


14 


27 


15 


27 


16 


27 


17 


27 


IB 


27 


19 


27 


20 


27 


21 


27 


22 


27 


23 


27 


24 


27 


25 


27 


26 


27 


27 


27 


28 


27 


29 


27 


30 


27 


31 


27 


32 


27 


33 


27 


34 


27 


35 


27 


36 


27 


37 


27 


38 


27 


39 


27 


40 


27 


41 


27 


42 


27 


43 


27 


44 


27 


45 



80 



2.6.46 SUBROUTINE KFTU 



*FTU 
SJ3R9JTINE KFTU 

SU8R8UT1NE KFTU «EC9R0S FAILURES IN THE FAIL TABLE AND TURNS 
FAIuURE LIGHT anC ALARM 8*.. 



INTEGE- ALA 1 *"" 
IMTEGE^ Tint 
INTEGE* Ar.LC 

i CICTF, 

t OTR2, 

■ CNT3. 

. DTTAi, 

> GGGG , 

• CHSET, 

» STATE. 



C1ALF# 
CRTA1, 
C'lT»B< 
Dri»DE» 
M9LD , 
FTAB , 
VRINT 



BLANK 

BVTCT 
CmmaL 
CTAg 

CPN9T 
OIS 
PAl 
FTB4 



M, 



BSI , 
CNSfC, 
CHT81. 
CYClO 
DiA L F, 
SLDFC, 
FLRFL/ 



CICCT, 
CNTLN, 
CRTB?/ 

CMLNG. 
DFAIt, 
SECEC, 
FMTCH/ 



CICEF, 
CMTFj, 
CRTDl, 
CLENG. 
ENTFL. 

SHAR , 
FfTNU. 



CtCSF, 
CRTF-,, 
CRT0?< 
DTLNG« 
EN9FF, 
V3L , 
F-ITTY, 



CICSC. 
CRTNM, 
CJPBF. 
D*L ' 
FLTABj 
C\T1J, 
SSSS i 



3I1ENSI9M TIHE(») 
DI-^ENSISN LtMGOl 



JNtST 
K.HAST 

mpbky 
CICSCH6) 



NBMCh 
NMANP 
N"VED 
NSTM1 
OS 

RS 

CICTF(S) 

CUR9F|31) 

GGGT(lJt) 

GGuG(12») 

TKMOl ) 



F-AHK » HAST(9) 

KMAST , EMAST 

QHAST / HAST 
OCNT 

CICSY,g) , CTLSC(1( 
F LNKCM*9). 

0*LP(17I i E9DC 

DTLNG < CHLNG 
NTFLI5), 
), 

, VRINTH23I 

. HBUFL 

i NCW22 

, NMCTL 

, NPATB 

, TBSK 

. FS 

. SS 

. CT9DF|8l 

/ CYCLC|31) 

, GA1«TP<31] 

, GuAbC(12») 

, wR<BF(3l) 
CuLll'li CMTABI25A), 

', DMALF,17) i DIODE 

, M8DES , NAI 

SC0FC(»), V9LU38* 
*RC1(?)»HS9( J*I»*P9 M 1 (l»),rPM9U 

, JCNT i KCNT 

, CL9CK » x^\\f 

, Nt)N9(8) 



LNKPTI64! 

IGPI 

nC»Dj 

N"LN< 

NPB» 

TBYTE 

NS 

SCS 

STBYJ(S) 

ENIMT(*96) 

3B»TP(31 ) 

INTDU(.»96) 



CSMmBn /BLK6 
. mhaST 

• hhaST 

• SPACE 
C9HM9N /BLKl^, , ,.., 

2 CTlSYi+),CNSEL(31 ]»CNTZN(1 

• TIMChi*) , ZSK32) 
CSHMBj ZbLKl?/ DWLC259) 

1 FTAB, FTB*U, M9EIFI69) 
C91MB\ /BL<1»/ CLENG 

• DJMVi, SUMT?/ CNTLN(372]jE 

• «CL(17). kCTF(i7), KCSF<17 

• S1VARI31) / SE«SK(iJ> 
L8"iM8\ /BLK15/ CHSET 

• MNUMF / 

• -vtwRD j 

• V'SCT I 

• NRESP f 

• CS i 

• US i 
C91M8N /BLM8/ 

• C9NT»(62) « 
. ENBFF(3t) , 

• 31ABC(124) , 

• SSSSC 124) , .... 
CB^MBn /BLk25/ AHCCI138), C 

• 3TTAbc2S8) > DISH7) 

• FLTABI800) * HRF 

• N9FAL. SBAR(69). SLCFC(»). 
C91HBN/BLK2B/AGR(1*)»PIA(6I 

• MARR(„ito) « HHAPI2) 
. UNCI'S , khSBF 

. 1INCT , TABI3) 
EQUIVAlE-iCE (LENU(1!»CLENG! 
DATA BLA-iK/ ' '/ 
DATA ALARh/ 16/ 
I3VTE • NBMtH/i 
IFTAB • FTAB + 1 

I • 1 

IR1 • 1 



SUB^BUTINE T9DAY IS AN ASSEMBLY LANGJAGE R9UTINE THAT RETURNS 
The CUhRtNT T1HE AND DATE (TIME Is 01 [lE^SIBNED TIME!*!) 

CALL T3DAY(TIME) 

CHECK FAILURE E'NTRY FLAGS 

IFIENTFLI I I'Ea.O) G9 TB 20 

I • 3 
l; C9NTIN^E 

IFIENTFLI I I'NEO) G9 TU 20 

I • I • 1 

IF t 1 . 3T. 1 ) U9 T9 10 
20 C9NTI MoE 

I TYPE • I ♦ 2 
33 C8NTINUE 

GET PR9PER TABLE AND ITS VALUE 

IF(I«2l 40/9Q.60 
tO CBNTINOE 

CALL haLFicBntb, IRl/ IE0PN) 

ae T9 70 

SO C9NTlNuE 

CALL HALFIDTTAB, IRl» IE0PN) 

G9 TB 7u 
60 CBNTInjE 

CALL HALF(C n TAB, IRl/ IEUPN) 
70 CSNTINoE 

ADVANCE FAIL TABLE C8UNTER AND TEST F9R GREATER THAN MAX 
ENTRIES 

N9FAL ■ N8FAL ♦ 1 
JF(MNU;1F.LT«N9FAL) G9 T9 93 

STORE NB ACKNOWLEDGE IN FAIL TABLE 



14 






HI 



9 
10 
11 

12 
13 
1» 
15 
16 
17 
IS 
19 
SO 
21 
22 
23 
2* 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3* 
35 
36 
37 
3» 
39 
»0 
»1 
»2 



51 
b2 
53 
5» 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6» 
65 
66 
67 
68 
69 
70 
71 
72 
73 
71 
75 
76 
77 
78 
79 
80 
81 
8? 
83 
8* 
85 
86 
87 

as 

89 
90 
91 
92 
93 
91, 
95 
96 
97 
98 



81 



C»LL PTBYIFLTAB, IFTAB, 0) 

IFTAB • IFTAB * I 

ST9RE TYPE OF FAILURE |\ TABLE 

CALL PlBY(FLTAb, IFTAB. ITYPLi 

IS THIS A DETECTOR BR CoNtRSLLE* CP^-UN ICATI9NS FAILURE 

IF( I. Ei.il ) Go T8 120 
CALL H»LF(a"L»IFUP\.ID*L) 
CALL GETBYlLNKCN, IOL«l, ILNK ) 
CALL jETUYiCnSEC, IlNK«1,ISEL| 
If ( ISEfEQ.O) Go To 30 
SCOFC(ISEC) • S.CDFCI ISEC) ♦! 
9 J CSATlNuE 

ST9»E E.UIP1EM NUMBER IN FAIL TA C LE 

IFTB« • (IFIAb ♦ IkYTEI/IBYTc 
CALL PT-iLF(FLT*Hl If TB«)»2« IEOPN) 
IFTAB ■ IFTAh * 3 

PUT TIhE Aiw DATE IN Pail TABLE 

CALL PTBYIfLTAt-, IFTAB, BLANK) 
CALL 3t T BY|Tne,l,IHR) 
CALL PTHY1FLTAU, IFTAB*1» Ihk) 
CALL jlTBY(1 I*"E,2, IHR) 
CAI.L PTBYIFLTAB, 1FTAB*2, |HR) 
CALL GETBY(TIME,4, IMIN) 
CALL PTBYIFLTAB, IFT»b«3» I " I N ) 
IFIAB . IFTAi; » , 
INJXT • »/IBYTc. 

I^JxF . (IrTAB ♦ IoYTEI/IBYTe . 1 
IEND • i/IUYTE 
09 S5 j.l.IENO 
INJ»T • INJXT + 1 
INOaF . lNgXF ♦ 1 
FlTAoiINDXF) • Tllf (INCXT) 
8b CS^TlNuE 



ADv 



vCe byte C9^NTE* T9 N c xT FAIL TABLE ENTRY 



IFTAti . IFTAB ♦ 8 
SO C9NTIM.E 

HI • I«l ♦ 1 

IF( IRl.LE.LtNGI II) G9 To 30 

IFTAB . IFTAh . 1 

SJdBSUT]v E ISTRP IS AN ASSEMBLY LANGUAGr R8UtIn F T9 ENABLE 
OH DISENABLE THE I^TERUPTS 
IRUPT > o DISENABLE 
1HUPT • 1 ENABLE 



DISENABLE I UEPoPTS 

IRJPT . j 

CALL I^TRPl IRU^T) 

FTO*D . IFTAB/I8YTE 
FTAB • IFTAB 
LlNGd) . 3 
ENTFLl I ) . 
ENTF L(1 I . -1 

ENAnLE INTEKUPTS 

IP'JPT • 1 

CALL Iv,TRP( IRUHT) 

IA'JD • EmTfL(2) ♦ ENTFLO) - 1 

IF( IADL.LT. 0) G9 T8 110 

SCHEDULE "TNK FAR M8RE PROCESSING 

MASTIKJ AST) • l 
100 CSNTlNuE 

TURN 8N ALARM 

CALL PTrtI (CPN8T, ALARM, i,G) 

TURK 9N WARNING LIGHT 

LtUHT . I + 9 

CALL PTBI (C"N9T, LIGHT, 1,0) 

GO T M NyRMAL RFTURN 

ii5 To 131 
11 : LS^TlMoE 

*C*T . 5 
G9 T9 1 Jj 
12: C9"-Tl'.a 

CALL Jr TrtYiCNSEOIE'JPN, ISEC) 
SECFC(ISlC) • SECFC(ISEC) ♦ 1 
GO T9 sj 



SUBr,90TINE KFTU N9RMAL RETURN 



130 C9NTIN U E 
RETURN 
FNJ 



44 


99 


»t 


lor 


A* 


101 


44 


102 


44 


103 


44 


1D4 


(.*♦ 


105 


44 


106 


4 4 


107 


«« 


108 


<•« 


109 


44 


110 


44 


111 


44 


IIP 


44 


113 


»A 


114 


44 


115 


44 


116 


44 


117 


44 


118 


44 


119 


44 


120 


Ah 


1?1 


»A 


122 


44 


123 


»» 


124 


44 


125 


44 


126 


<4<, 


127 


44 


128 


*4 


129 


»» 


130 


"A 


131 


14 


13? 


4» 


133 


44 


134 


44 


135 


• A 


136 


44 


137 


44 


138 


44 


139 


44 


140 


44 


141 


44 


142 


44 


143 


44 


144 


44 


145 


4=> 


14 6 


44 


147 


44 


148 


« 


149 


44 


ISO 


44 


151 


44 


15? 


44 


153 


44 


154 


44 


155 


44 


156 


44 


157 


44 


158 


44 


159 


44 


160 


44 


161 


44 


162 


44 


163 


44 


164 


44 


165 


44 


166 


44 


167 


44 


168 


44 


169 


44 


170 


4U 


171 


44 


172 


44 


1/3 


44 


174 


44 


175 


44 


176 


44 


177 


44 


178 


44 


179 


44 


ISO 


44 


1*1 


44 


192 


44 


183 


44 


184 


44 


1*5 


44 


1*6 


44 


1*7 


4» 


188 


44 


1*9 


44 


190 


44 


191 


44 


192 


44 


193 


44 


194 


44 


195 


»« 


196 


44 


197 


44 


198 


44 


199 


44 


200 


t4 


201 



82 



2.6.47 SUBROUTIN E TODAY 



WutIme: T93»v 



20 1 

20 ? 



. • T9J t y 

. SUB^S-lTI^E T9DAY(Tf.BF)' 

. fiaUII'iE-.Ta 3tT DJRRJAT TI*E SF DAY FRB* »B» 20 3 

, ?0 » 

DEF TBCAY JG 5 

REF 9SETJPN ?0 b 

RES 1 ? 3 7 

TI^&F RES 1 30 ' 

DATA 1 20 9 

PTrtPl res 1 20 1C 

T8UAY RES 80 11 

II. b 1 20 1? 

BAL.6 9SET'JPN 20 13 

GEM.8.2* J»TI1c<F 20 1» 

ST*. 15 PTMP1 20 15 

CAL1.8 T!*E GET RB", TI"IE 20 16 

II. 1 3 20 17 

LB9P RES 20 IS 

L«.2 TBuFF.l PuT TI*-E IN SJBRBoTI-.E ARj 20 19 

ST., 2 .TIM9F.I 20 2C 

AI,1 -1 20 21 

BCE/ L9»P SET ALL » iBROS BF TI-'E 20 22 

B «PTMP1 20 23 

TI"E RES 20 ?» 

GEM,8»2« X'10' ( «A(TBdFF I 20 25 

TfaJFF RES * Tl^F BUFFER 20 26 

END JJ n 



83 



2.6.48 SUBROUTINE TRIG 



TRIG 

SUSM8UTINE TPI3 

"■JUTIME TB TKIGCjEH LWT DEVICE 





DEF 


TXICi 


PTIPJ 


RES 


1 


trim 


RES 







ST, ,15 


PTMP1 




C4L1.5 


Tfciia* 




b 


•PTlPl 


TRlllt 


RES 


c 




DATA 


»'*8> 




E*D 





T»!&r,FR T"E CRT CiVICE 



?1 


1 


?1 


2 


?1 


3 


?1 


4 


21 


5 


?1 


t 


21 


7 


21 


« 


51 


9 


21 


1? 


21 


H 


21 


l? 


21 


13 



84 



2.6.49 SUBROUTINE SCODE 



»9 


1 


»9 


? 


»9 


3 


♦ 9 


* 


*9 


5 


»9 


6 


»9 


7 


»9 


? 


»9 


9 


»9 


13 


♦ 9 


11 


»9 


1? 


*9 


13 


• 9 


1» 


• 9 


15 


• 9 


16 


• 9 


: 7 


• 9 


I B 


• 9 


19 


»9 


?: 


»9 


?1 



z ■ scs:)? 

SJ*R9uTl .E SC6i;r(9Sl»ICH»0,!«uT,Ll , .E J I , = T«M 

C bjd-9jT!-«E SC93t ST9RES T*E DESIRE? STATjS C9DE F9R T-iE 
C CET._CT8-S »!.E CONTROLLERS t^ The CRT aU* * £P 

C INP^T 

C DSI - C*T BlFFE* STtjKr INDE» 

C IC"AR . STA1J5 C8JE C-a=aCTER 1 1 • Si c • f » 3 • C. »■ ■ Ii 

C 5.0) 

C I6UT • CUR«EN NUMBER 9f ITEMS 9^ TwjS PRINT l!ne 

C LINE • CURRENT LINE C9jNT 

C [-(T^S - c "'"E DAT* T9 BE 9uTBuT, CONTINUE P*9CESStN3 -OB 1 * 

C RETURMNj T9 CALLInS ROUTINE 

C 1 LAST 3ATA, lie T8 SUTPLT -9aP.jP _b>jn orTjR-.tNG 

C 

lNTElitc OS! < Cntj; , C«TBl , TKuNI 

3PENSI9-N IC(5) 
C 

c;i^e\ ««></ cNTii , \-c . n<c« . n»cis > 

• T^L'-lct) 

CS^Sn /dL<2?/ CRTBKS181 . C-iTa2,c 1?) , ;;t; ; , 49 p? 

• OTl'2 , CRTH , C'TFa , PLRF.. »9 '3 
DATA IC.R/ 13/ 49 ?( , 
CAT* tC<l)»lC(l)»lC(3)#IC(»l,IC(5(/ A3» 72» 67. 73, »,«/ «9 pa 
3S1 • rS; .1 »9 »6 
CALL PT8T(C-<TBl,cSl» !C( IC«AR| | no it 
ie.IT • IBUT ♦ l ,9 Jt 
ESI . tSI . 2 » 9 ,o 

lnt'io . cnti: -i t , ,; 

IFICNTi ..GT.'] RET^w . .9 j. 

lI - 'E ■ LINE » 1 *s ji 

IPILnttLT.eS) Q8 T8 ir 49 31 

IR*V . ?7 49 j. 

IC9L « ?6 «9 ,t 

CALL StTCRlBSI, IK8-. IC8L! 49 3»" 

nCa^ . 16 », 37 

CALL C ./TlT^uM.NC^A^.nSI ) .9 f « 

C .9 39 

C CS-iPLETE'J TARLE *ETu-*N ,9 .- 

C 494* 

IRTRN . J ..; 4, 

'E'LR-. 49 .3 

Z fcT .4 

C STA„T A NE» lINl *<i 46 

C A3 a 6 

10 C9--T1'.„E 49 *7 

CALL PT3T(C<TB1,BS1» IC-i) .9 4» 

bSI ■ -_SI * A 43 .= 

LNTlC . 10 »•) 5C 

C » » bl 

C M8RE JATA RETuRn A3 ,5 

C »9 r>3 

IRIKN ■ »9 b* 

stctuRn 49 5? 

ENJ a<3 i* 



85 



2.6.50 SUBROUTINE SETCR 



RfluTlNE! SETCR 



SETCH 
SJBR8UTINE SETCRlBPI, IRS*, K8L) 

S0BK8'JTI N F SETCR INSERTS CURSBR C8MRSU CBMrtANCS IN THE CRT 

BUFFER. 

CALLING ARGUMENTS 

BPJ - CRT SUFFER POINTER INOry 

IS8* - BINARY R8» NUMBER 

IC8L • BIN*RY C8LU1N \U1BER 



INTEGER 



BPI 



CHTBl 



CRTB2IS12) 
CRTF2 



CRTC, 
^LRFL 



CB^MBn /3LK22/ CRTBK512) 
• CRTD2 , CRTFl 
DATA LEAD/ 126/ 
DATA ICP/ 17/ 
IC • IC8L 
IR • IkS« 
IR ■ Ih-1 

PUT LEAO-IN CHARACTER IN CRT BUFFfR (FJRST BVTE » X'7t') 

CALL PTBY(CRTB1»BPI<LEAD) 
BPI • oPI ♦ 1 

SET CURSOR P8SITI8N C8M1»\ D 

CALL PTBY(CRTBl»BPI< ICP) 

»PI • bPI ♦ 1 * 

put R8» and C8LU"n number in CRT buffer 

C»LL PTBY(CKTB1,BPI. 1CI 
BPI • BPI + 1 
CALL PTBY(C*TB1.BPI< IR) 
BPI • BPI ♦ 1 

RETURN 
END 



5* 


1 


5* 


? 


S» 


3 


54 


4 


54 


5 


50 


6 


54 


7 


54 


8 


54 


9 


54 


10 


54 


11 


54 


1? 


54 


13 


54 


14 


54 


15 


54 


16 


54 


17 


54 


18 


54 


19 


54 


20 


54 


21 


54 


22 


54 


23 


54 


24 


54 


25 


54 


26 


54 


27 


54 


28 


54 


29 


54 


30 


54 


31 


54 


32 


54 


33 


54 


34 


54 


35 


54 


36 


54 


37 


54 


38 



86 



2.6.51 ROUTINE M 



R9UTINE! RT\1 



C • -<T^ 55 1 

SJSRBuT I JE *TN* 55 2 

r 55 3 

OIKENSlSM »UT9F(7)»C!CEF(7).CMAUF(7)» 55 » 

• FSTCF(7l«SPLCM(7),TRNSFl7) 55 5 
OPENS I S>. C**M*(7) 55 6 

DIMENSI3N IC-<TI2) 55 7 

C 55 S 

C 55 9 

C 55 10 

IMESE" TI-lBUf 55 11 

INTEJE 1 * AuT8F,C!CEF,efALF,FsTCF,SPlCW»TRNSF 55 1? 

I NTECiE^ PRTFL 55 13 

IMTE&E^ 3C\T 55 U 

INTEGER F1TTY , F1TSU < FmTCm 55 15 

1NTEUE* Cn / C'.OIS. C^TcLi CRTF], C>>If?« F L RF|_, F><sCF» 5S 16 

• F-iSVF, FmTCHj FmTnU* F^TTV/ FSTF|_» m«F > STC / SmTFL/ 55 17 

• SN , SRJIS. SSFw , C^TDl* CRT02. HI"AST» hMAST, T !«0 55 18 
C 55 19 

C61«B\ /Bl«.b/ IPR3, IwT, IT«OLY/ JL I r 1 » ) 55 20 

CB*l*BN /-I8LUS8/ SJRC»Mia»),WLOSPL(»l, K LD»FFl»), ISaTE", I3BTF" 55 i\ 

IMTEQE^ SUHCBN,HLDSPL»HLD8Ff 5 S j ? 

C 55 23 

CB-lMBN /BlK.6 / FMC , FMARK , 1AST(9| , 55 2* 

• ''"'AST , J"AST , KMAST / E*AST , 55 ?« 
» -CAST / »1»ST , UKAST , liAST , 55 26 

• S*ACE , 1P8KY , UCNT 55 ?7 
C 55 28 

CS-'h-BN /rJL<10/ CICSCU6I , CICSY(P) # CTLSCI16I / 55 59 

2 CTLSYl«)iCMSEC(31)<CNrZN{19) < UNKCM69)< 5b it 

• TI".Ch(») , ZSK32) 55 31 
C 55 32 

C3TBM /dL<12/ 0(138), DAY*K, JJ, 55 33 

• INKSI(3> , PATNM(3) , PRTFL » SC':SI(?> , 55 3* 

• scoMiaai.ssF. 55 is 

C 55 3* 

CS-'MSN /BL*1*/ CLE^S . DTLMi / C-LNj , bb 37 

. 3JMY1, OU'.YE, CNTLM372),ENTFL(S)/ 55 3» 

• KCL(17)» «.LTF(17), KCSFI17), 55 39 

• \"'VAR(31) , SE"ISk(3) , VRINTM23) . L':kPT(S4I 55 *0 
C 55 "1 

CB^MBN /Bl«15/ CHSET , H6UFL » I3PI , 55 "2 

» -iMjMF , nB^Cm , NCW22 , NOC2 < 55 * 3 

. NCkRD / NMANP , NMCTL . <1(A* ■ 55 *« 

• N^SCT < l^-lvED ■ NPATB / NPB* , 55 15 
. \«ESP , NSTMl , TBS1Z / TSYTE , 55 »6 

• CS » OS » FS / NS , 55 »7 

• OS » «S . SS . SCS' 55 "9 
C 55 *9 

CB^KBN /BL<17/ ADvNH(8l , CICBP(8I < CPABolM i 55 50 

• MDVPiai ■ CNTURU2*) , CNTni , IL2 » 55 51 

• INTMH31) , IT'««L(31) , !NT8u<3?) » <L2 , 55 5? 

• SIBTM,32) # TI1E803), 0V8Mfc9] 55 53 
C 55 bi. 

CBlhON /BL<19/ CICTF(S) , CT80F(9) / STBY^l^i , 55 55 

• fNTai62) I CUR9FI31) , CYCtCOl) . EN^T(»96) / bb 56 

• E^6FF(31) i aG3T(l2i»l , OAWTP(31) / iiB'«Tpoil' < 5b 57 

• Gl,ABC(12«) , GS3S(12»> , GUABCI12") < IMDJ(*96I . 55 bS 

• SSSS112*) j TK^I(31I . WRK9F(31I 55 59 
c 55 60 

C8''^BN /BUK19/ CC2I129), DFAILI69)/ 0BF(171» 5b 61 

• -11(31) > RA»BC(253) , RAWSP(?53) « KTC / 55 62 
. TSTRK516) 55 63 

c 55 6* 

C91MBN /BL<21/ DPT^^ , FMSCF » F1SYF . 55 65 

• HSBUF(1J72). "CUF, TE»f>(69) 55 66 
c 55 67 

CBI^B.'. /9LK22/ CRTBK512) . CRT,j2(512] / CRTDl < 55 6B 

• C*TD2 , CRTFl , CRTF2 , FLRFl 55 69 
c 55 70 

CBiMBii /dL^^»/ AnIST(138l, C^DIS/ OCF. 55 '1 

. 0B W , F1T60 , FSTFL . HL1DF , 55 72 

• MUIDTI96) i NHOAY , PHCBO . PTM7H51 < 55 73 

• S M TFL. SROIS, TMRSH, VHISTI136) 55 ?t 
c 55 75 

CB^MB-J /«L^25/ AMCC(13<1)< CMlAt(l7)» C«TAB(25S)» 55 76 

• 0TTA6(2b8) i BISI17) » 0MALF(17) / O^eDE • 55 77 
. FLfAB(800) » HRF , KBDES , NAI , 55 78 

• NBFAL, SBA*(69|» SECFC(»)< SCDFC(»), VBLI13H) 55 79 

55 80 

CBlhBM/BLK2»/AiR(l»)iPlA(6)»RC1(2)<HSB(l»)iAPBMl ( it ) , CPN9U/CP N 8T, 55 91 

, MARR(S<.0) / M1AP(2) , JCNT < <CM / 55 "2 

. MNC15 / WMSBF , CL8C< / «MI\F » 55 83 

• 1INCT i TABI3) , ^8^Je(B) , 5b B9 

,' 55 85 

C91M8\ /BLK29/ ISYSTB. ISECSBl*) / 55 86 

C / 5t > " 

CS"lMBN /HAKGS/ FMTTY , FMTMJ , FMTCrt , ,• 5b 98 

. 1THN^(2) 55 89 

55 90 

CBMl-^ / ;SUBl/MBlT(l6),"C;BrE< K, TEST,HF < IT,lPRT / ITIHE,'1SER 55 91 

c 55 92 

CBMMfllN /MSU82/T11dOF(< ( ).CKTCL 55 93 

z 55 94 

r •••• 2-JC CHANGE 55 95 

C91MBN /G2CBNT/ wRKBFS I 12* ) / I 9 ( 12* ) / IEA ( 31 ) / ENTCYC ( 31 W SPL IT ( 12* 1 , 55 96 

1 CRP'ilSl) ? 5 *Z 

1NTEGEF. .JRKBFS.ENTCYOSPlIT.CGRPN 55 98 



87 



Ce^MSN /BLKLV5/ LEvt5**SRTN5»E' > '05»END5 1 ,MI\CTS»*II^5f iBBTIME.SpTIN 
INTEGER SRTN5.END5.ENDbl.8PTt ME, BPT IS 



EUUlVAuENCE (C.PT51, ICf-T ( i) ) , (CRTo?^ I CRT ( 2 I ) 
EQUIVALENCE (AUT8FI1 I.AIVN-(J) ). ( C 1 CEf ( 1 I .CTBDF ( 2 ) ) , 

(t"ALF( ll.CIClf (21). (FSTCFU ),CPA9G(2) ). 

(INT 1311 ). IADVP|2) ). (SplChi 1 >»SEMSK(2) ), 

(TRNSFll ).ST8TD(2) ). ( KC"lSP ( 1 I . PC* ( 2 ) I . 

(GA1 ( 1 l,AGP.(2> ), (HBLD(l),HS9(2>).(APB(ll.AP8Mll2)l. 
(LlNKPM, L \<PT), (NDIAX.NMVEDI. 

("AXNC/NMCTL). (YIELD. IaDVP), (FSETF .FSTCF I . 

iCPMMl 1.PIAI2) ) 

PRESET ALL MBIT ARRAY BFF 
D9 1: I 1 1.1* 
M6IT( 1 ) • -1 
CBNTI-xUE 
MT£ST • 
MExIT • 
IT] It ■ 



C IsTTIAL Call T8 MS.U5 TB UnPaC* DATA 

MCeDE • -1 

C«LL i-.SuB 
- S£T PRINT FLAG Tn il*e FBR 6' BR NeN £ER8 f 9" 9FF 

PRTFL • IF-^ T 
C "EMT • 1 F9R SYSTE' C9NTRS,. enter 

C .2 FBR 1AP C9NTR8L ENTER 

C « 3 F9R STATUS DISPLAY ENTER 

L . * FUR J9 SELECTI9N 

C 

IFlnExIT.GT.*) G8 TB 1000 

3B T8 (100.30Ct3u.1000) ."EXIT 
C 

C SYSTfcM C9N.TWBL ENTER SELECTED 
C A}/] ,j SYSTE" SHuT.DBrtN 
C EXIT IF PREviBJSLY SELECTED 

C 

100 IF (SmTFL.NE.O) G9 T8 10S-> 

IF (MTEST.NE.j) 39 TB 101 
C STSTE" SHuT.OBKN. SfT FLAG AND SC*EDULF RjUTINE H 

SHTFL.l 

"AST (.-MAST) • '. 

GB TB 100* 

C "3/1.1 DETERMINE TRAFFIC, CIC BR NB SELECTIBN 
101 IFIrBI T!2) )1 180. 102,200 



L dl/1 2 .TRAFFIC CBNTRBL. SYSTEM C8NTR9L ENTER* 

C 5 CriBICES 39 TB E1-E5 

C SYSTE" OSES TB El 

U2 IF (MdIT(3) .Eu. j) (38 TB 103 
C SECTI8N G8ES T8 E2 

IF C"L'IT(t) tE'J.J) GO IB 1»0 
C C9NTRBLLER TB E3 

IF (M IT(5) •EU.O) GB TB 160 
C DETECTBR T9 E* 

I c (1oIT(6)iES.O) GB T9 17b 
C C9MMLNICATI9NS TB Eb 

I f ( 1i:IT(7) .E3.0) GB T9 16b 
C LRRBR IF KH SELECTION 

GB TB 1C*0 



FR')M A3/101 



L SYSTEf; REIUEST FBR TRAFFIC C9NTH9L ANC SYSTE" 1 C6NTR9L ENTER 
C tl/1 3 FR9I- 31/132 .6 TYPES 9F SYSTE" REr.UESTS GB T8 Gl-3fc» 
BN LINE 
IF MrjITMu;) 106.10*. 106 

ERRBR IF PREvIBUSLY SELECTED 
I f (FsTFLI 1080. lub. 1080 

SET FIRST START FLAG AND GB TB 33 
FSTFL. 1 

GB TP 120 
FBR ANY 8T rt ER SYSTEM RE'lUEST, FIRST START 'Hj MUST PE SET 
IF (FSTFL. ET. : ] 59 T8 108J 

TRAFFIC RjSPBNSIVE TB Gl 
I c l»t ITlc) .E3.0) GB TB 110 

TJME-9F-0AY TB 32 
IF ( --.■! I Ol'E'J.O) GB TB Ub 

stand-by tb 3* 

IF ("-ITdll.ESOl 38 TB 12=, 

RECBRD HIST"RY UN TB u5 



10a 

10<t 

10b 

: 

106 



If 



•.ITdZl.EO'DI 38 T8 13'. 

RrCBRD hIst'.'RY '<FF TB Gft 



I' (M„IT( ltl.EO.O) 3fl TB 135 

N9 SELECT |«\ rPHBP 
39 T9 10-O 
C ul/n 1 .TRAFFIC RESPBNSIvE/FBR TRAFFIC Cc-NTRBL SYSTE'* 
C *AIT IF lb "IN FLAG 9N 

11 J If (Fi-SCF.NE.O) 39 T9 1050 
C •••• 2-31 Change 

IFILtvXbA. <t.OI 39 Ts 1050 
1F| ISYSTo.3T..j) 39 TB 10S0 
IT<CLY.-J 

SSF».u 
FlSCF.! 



f R9M tl/106 



JJ 



•AST! *, ASTl'l 

SE' C"ANGL • TRAFFIC RESPBMSIvE 
FBR 31 ENTRY 



99 

100 
101 
10? 

103 

100 
105 
106 
107 
108 
109 
110 
111 
112 
113 
11* 
115 
116 
117 
US 
119 
120 
1?1 
122 
123 
12<t 
125 
126 
127 
128 
129 
130 
131 
132 
133 
130 
135 
136 
137 
138 
139 
1*0 
1*1 
1*2 
1*3 
l». 
1*5 
1»6 
1»7 
1»8 
1*9 
150 
151 
152 
153 
lb* 
155 
156 
157 
lbS 
159 
160 
161 
162 
163 

16* 
165 
166 
167 
168 
169 
170 



55 17) 
55 172 



5b 
bb 
bb 
55 
5b 
55 
55 
55 
55 
55 
55 
bj 
5b 
55 
55 
b5 
55 



173 
17* 
175 
176 
177 
178 
179 
1*0 
181 
182 
1*3 
1«» 
185 
l't 
1«7 

1HR 

1*9 



FmtCh . • 

StT MCfiDr 
MCB'JE ■ 1 



5b 190 
191 
19? 
193 
l u * 
1 '5 
196 
197 
l'»8 
19=) 
200 
2?1 
2-12 
20 3 
20* 



88 



MJN flags* 



.'VJTS^L SYSTE" 
.BY 



GO T9 126 
C "2/11= «TI-,r (IT 3»v, ->a!t jr 15 M|M FLA"i a; 
C 

lib IFIFmScF .".r-OIGUTu 1030 
C •••• 2-.iC 0<»\GE 

TF(LEvl5*.sf.o) io To l?3n 

t r < is»sta..iT»ai go n ic5n 

c 

c 

SSFa . o 
F1SCF. 1 

j j. o 

FiTCn. 3 
,1*ST( a/*ST, • 1 
C SET MCODE F;?R 3? .L\TR V 

ice^e . 2 * 

G8 TO 126 
C t>3/i?i .STSTcm ON. Lt^E • SET 
.120 F^SVF • 1 
F^SCF . 1 
SSF'a.o 
C SfT ChANGf ^ LINF 

F^TCh . 13 
C . SC"C!;lILF RIIJTINE '< 

M»ST(»"*STi . 1 

GO TO 127 
C 

C U*/l?5 StanO-by FOR TRAFFIC r 
C SET CHANSF F8R STAND 

125 F1TCM.1 
C CLJA* HOLD SPI.1T ANO OFFSET 

S3 1251 l>l<XMSCT 
iSiCS-H I ) il?5 
-LUSPLl I).o 
hLDOFFi I I .J 
1251 C9NTINuE 
IT'CLY.a 
tSYSTO.125 
C SfT FOB fi, ES'TRY 

*iC&oe • « 

126 C'LL 'SUB 
C 

C U/l:"i/127 SET TIME SF M6DE C"t 
C 

127 OS 125 I • l.MMSCT 

TII-CH(I) . I TIME 
12i C3MTI-..UE 
C SFT »A[T C8J-IT 

GO TO 136 
C <>b/|30 ReCO«n HISTORY ON FOR U'RaFFJC C8nt"9L SvSTE" 1 
C 

130 H*F .1 
FITCH .b 

GO T8 136 
C US/135 REC9RD HISTORY OFF 
135 hRF iO 
FITCH .6 
C "11/136 ALL TRAFFIC CONTROL SvlTcM REOUtjSTS J8K, H^RE 
136 F1TTY .1 
F1TNU .0 

GO T8 107,j 

C E2/KO TRAFFIC C8NTR8L SECTIfl. 

c Mt)iT,n> converted r. 

C FIRST START FLAG Mile 

C 
1*0 IF (FSTFL.r2.0i GO TO ios; 
SN.MaiT(l) 
IF (S\.GT.MMSCT1 G8 TO In'. 

c 

C i) TRAFFIC C9NTRBL SeCTIOm 



FROM 1 1/106 



FRBH fl/106 



FROM El/106 



TIME F8R AL" SECTlSNs 



FR81 El/106 



FROM El/106 



REQUESTS FROM Bt/102 

DIHIT NUMBER FR.M «8R0 3 8 F CPM* 
T BE SET ANO HAVr VALID SecTISN \0 . 



C TRAFFIC RtSPONSIvJ 

IF I.MuITlSliEi'J.'J) GO TO 1, 

C TImF of [JAY TO H? 

if (MsiHvi •?■;• 0) G9 T8 , 

C MA-.UAL PATTERN Tn 

IF (MnIT(16l. i'J.Q) j8 TO ; 
C STA\T3Y TB M* 

1*1 T F ( Mb I T I 1 1 ) .EG.OliSTO 15t 
C U»M t, 

no to i- 

C H l/t»5 TRAFFIC RESPONSIVE FOd 
C *AIT IF 

l»b IF(FMSC>' <: T«0! GO TO loS.l 
C *••• 2-GC CHA-.'GE 

IF(LEvl5*.nf.0> G« TO 105n 
1F( I3EcSd(3--i).GT.01 G8 T8 J 

C ••• 

FmtCh • * 
C SET FOR Hi E^TRY 

"CODE ■ 5 
CALL fSUB 
59 TO 151 
C 

C w 2/lk7 T 1 '-. E 8F OAY Fon TRAFF,, 
C WAIT IF 15 • 

1*7 IF (FmSCF.mE.O) 08 TO 10k: 
C •••• 2--iC Chi ]'jZ 

1F(LEVL5A.SE >0I J8 TO 105n 
|F( IbECS3(S'JI .GT'OI G8 TO 7 

C 

Fitch . 3 



CHOICES GO TO HilHi, 

T8 Hi 



\3 SELECT15M 



TRAFFIC CONTROL ;ECTle\ FR8M E?/l"n 
15 MIN FLAG HM 



C8NTR0L SFCTI9N 
IM FUG 8N 



FROM C3/l"n 



55 


235 


53 


206 


55 


207 


55 


208 


55 


239 


55 


210 


55 


211 


55 


212 


55 


213 


55 


21k 


55 


215 


55 


216 


55 


217 


55 


21* 


55 


21<t 


55 


220 


55 


221 


55 


222 


55 


223 


55 


2?» 


55 


225 


55 


226 


55 


227 


55 


22S 


55 


229 


55 


230 


55 


231 


55 


232 


55 


233 


55 


23» 


55 


235 


55 


216 


55 


237 


55 


238 


55 


239 


55 


2">0 


55 


2M 


5b 


2*2 


55 


2*3 


53 


2k» 


55 


2A5 


55 


2*6 


55 


2*7 


55 


2*8 


53 


2*9 


55 


250 


55 


251 


55 


253 


55 


253 


53 


25* 


55 


2S5 


55 


256 


55 


237 


55 


258 


55 


259 


55 


260 


55 


261 


55 


262 


55 


2*3 


55 


26* 


S3 


265 


55 


266 


55 


267 


55 


268 


55 


269 


55 


270 


55 


271 


55 


272 


55 


273 


55 


27* 


55 


275 


55 


276 


55 


277 


55 


?78 


55 


279 


55 


2*0 


55 


281 


55 


282 


55 


283 


55 


28* 


55 


2«5 


55 


286 


55 


287 


55 


288 


55 


289 


55 


290 


55 


291 


55 


292 


55 


293 


55 


29* 


55 


295 


55 


296 


55 


297 


55 


298 


55 


299 


55 


300 


55 


301 


55 


302 


55 


303 


55 


30* 


55 


305 


55 


306 


55 


307 



89 



C SET UP FRK H? ENTRY 55 3 08 

MCBDE • 6 55 339 

OIL i-SoB 55 310 

C 38 T8 H20 55 3)1 

OB T8 151 55 31? 

C b5 313 

C H3/ 1(> 3 KA.NJAL PATTERN F9R TRAfFjC C8NTR6L SECTION FRBM F»/1»0 65 31* 

C SET OP F9H H3 ENTRY, 55 315 

1*9 MCBDE .7 55 3j 6 

C»LL 1 SUB 55 317 

C TEST F9R E rk»H RETURN FRBM f.SUB 55 31» 

If MTEST.NEO) SB TB 1080 55 319 

C «AIT If 15 MJN FLAG BN 55 323 

If (FhScF.NE.'j) G8 TB 105? 55 321 

C ••«. 2-iir CHANSE 5b 322 

IFILEVl5a.NE.o1 u8 TB 1050 55 323 

IF( ISECSS(SN).oT.O) SB TB 1DF0 55 324 

C ••••••*• 55 325 

C H2J/151 55 326 

151 F*SCF. 1 55 327 

S5F. . 1 55 328 

JJ ■ SM-1 55 329 

C Sc^FDULE ROUTINE - AND &9 Te hi 55 333 

IF (,-ITEST.NE.Q) G8 T8 1080 55 331 

1AST<»MAST> • 1 55 332 

G8 TB 155 55 333 

C 55 33* 

C H */l53 STA'-.DbY FBR TRAFFIC C8NTRPL SECTlBN FRB 1 E?/l*o 5b 335 

C bb 336 

153 FITCm • 1 55 337 

ITRDLY.O 55 338 

C SET -JP F9R H» ENTRY 55 339 

MCBDL • 8 5b 3*0 

CALL r SUB 55 3*1 

ISTST8.125 55 3»? 

!SECSB(SN).125 55 3*3 

C "10/155 ALU TRAFFIC CBNTRBL SE^TIBN RfQuESTS JOIN HfRfc. 55 3*» 

lob FmTTY .2 5b 3*5 

F11TNU • S* 55 3*6 

TIH L H ( SN ! . ITI1E 55 3*7 

G9 T8 107r, 5b 3*6 

C 55 3*9 

C t3/i6J .C8\TW8lLFR REQUESTS F8R TRAFFIC CBNTRBL* FR91 B1/1C2 55 350 

C 1dIT<l)» CBNVERTEO * OJGIT NUMBER FRBM *6Rk 3 9F CPNJN 55 351 

C 55 352 

163 CN ■ KBlT(l) 55 353 

IF (CN'IT.NHCTL) 08 TB 1080 5b 35* 

F1TTY .3 55 355 

F-ITNU • C, 55 356 

C SI» CHBICtS FSR TRAFFIC CBNTRBL, CBNTRBLLFR G8 T9 Il-I6 5b 357 

c failure repmr tb i* 55 35* 

IF (MblTClb) .EQ«0I 09 TB l-6(t 55 359 

C FIRST START FlAU SET 55 360 

If (FSTFL.E'J.C.) G8 T9 1080 55 361 

C Bn LINE TB II 5b 342 

I F MtflT(lO).EQtO) 08 TB 16? 55 363 

c standby Te 12 55 36* 

If [SbIT(H)tEQ«01 G9 T9 16» 5b 365 

c failure acknbwleoof. tb 13 55 366 

IF (MeIT(l3l.EC'0) 09 T8 166 55 367 

C A. PHASE OREEN TB 15 55 368 

IF IMbIT(16).EC>1 I jB T8 17o 55 369 

C 8FF«SET TB lb 55 370 

If (Sb!T(l6I.E0.2i 09 T9 17? 55 371 

C ERRBR IF N9 SELECTJBN 55 37? 

0"» T9 lose 55 373 

C 55 37* 

C 11/162 ON LINE SELECT19N. FRB1 E3/160 55 375 

162 "1C80E • 9 55 3/6 

CALL i-SUB 55 377 

C E^RBR IF CNT«9LLtR BR ITS SECTIBN in STA^OoY BR nALF FlA^ BFF 55 378 

IF MUST-NE.;.) G8 TB 1080 55 379 

C SET CHANGE 9N LINE AND Gfl Te UPDATE CHANGE TA3LF (»T8I 55 380 

FITCH ■ J3 55 3M 

GB T8 1070 55 38? 

C 55 383 

C 12/16* »STAND.BY SELECTI8N* FR8« E3/U0 55 38* 

16* 1C9DE ■ 10 55 385 

C»LL rSUB 55 386 

C SET Change F6R STAN-jBY ANB GB T8 UPDATE CHANGE TABLE 55 387 

Fhjch • 1 55 388 

38 TB 1070 55 389 

C 55 390 

C 13/166 oFAiLURE ACKNOWLEDGE SELECTI9N. FRB* El/160 55 391 

166 FITCH ■ 11 55 392 

C uPDATt FAILURE TABLE AND t«FC< ERH8R R£TU«N 55 393 

CALL «.FMT 55 39* 

IF (FlRFL fNE.C I G8 T9 1080 5b 395 

38 T8 1070 55 396 

C 55 397 

C I*/168 ^FAILURE REPAIR SELECTIBN* FRBM E3/I6C 5b 398 

C UPDATE FAILURE TABLE AND CHfCK ERRBR RETURN 55 399 

168 FITCH • 12 55 »O0 

C*LL *FMT 55 »01 

IF (FlRFL'^E.C) GB T9 1080 55 *0? 

C RESET CBNTR8LLEH ka l FUNCTI9n FLAG 55 *D3 

nCBDE • 11 55 »0» 

CALL I-SUB < 55 *-i5 

GB TB 1070 55 »06 

C 55 »07 

C 15/170 *A- PHASE GREEN SELECTIBN. FRBM E3/160 55 *08 

C 55 *09 

170 IF (Ff,SCF.NE. 0) GB T9 1050 55 *10 

C •••• 2-GC CHANGE 55 '11 

IF(LEYl5A.NE.0I G9 T8 1050 55 »!? 

C 55 *13 

■ MC9DE • 12 5b »1* 



90 



CALL h-.SUB 55 MS 

C 55 »16 

C TEST f8R EROB* A-gj *AIT C3NI5ITI9NS 55 117 

IF(MTEST)H,8.,,171, IC50 55 "18 

171 F-1CH.7 55 M9 
ICN.MBlTllI 55 420 
CALL 3lTBY(CYCLC. ICN. IP) 55 »21 
IC»«KCl(IP+1 ) 55 <"? 
CALL GET6Y[SSSS,4.ICm«3.ISUM 55 423 
ISPL'I IGATE^'lUTDl/l ICY-ISUM) 55 424 
CALL P*** (SPLIT ,2* ION- 1» ISPL) 55 4?5 
CALL "Til mLOSPL. ICN.l.O) 55 4?(, 

Srt T8 1070 55 »27 

C 55 »2« 

C 16/172 .9FF-SET SELECTION. CR91 E3/163 55 »?9 

172 If (Ff'SCF.NE.C) 38 TB 1550 55 430 
1C8DE ■ 13 55 "31 
CALL cSuB 55 43? 

C TtST Few t»R8R AND JAIT C8N0ITI8NS 55 4i3 

IF (.1TEST) 1353. 173.1 05; 55 »34 

1/3 F-'TC-i • 8 55 435 

GB T8 1070 55 4JA 

C 55 437 

L t»/!75 .DETECTOR REDUEiTa rBR TRAFrK C8NTK9L. FR9 V ' Bl/102 55 438 

C F3UR 0ETECT9R RE3UESTS 38 Tfi J1.J4 55 »39 

C 55 4»0 

1/5 IF(.|dlT(l)«3T.S'MVtO) 38 TB 1083 55 t»l 

riTTr • 4 55 44? 

F-ITNu » M»IT(1 ) 65 443 

C BM LINE TB Jl 55 444 

If C,bIT(1C).E.S«0) 38 TB 17 t 55 445 

C STANDBY TB J? 55 446 

If C1bIT( II I.E2.3) 39 T9 ]7j 55 »»7 

C fAlLUHE «E p AIR TB J4 55 *»« 

IF CsIT(lS).EO«0) 38 TB 18? 55 4»9 

C FalLUFiE AeKN9*LED3£ T8 Jl 55 450 

!« MuIT(l3).E3.0> oB TB 18- 55 451 

C N8 SELECT^ ERR8R 55 15? 

G8 TB 10BJ 55 <t:>3 

C Jl/176 . DETECTS") BN LIME fPR TRAFF|f CBNTRtL. FRB-l E4/175 55 464 

C 55 455 

1/6 "CBDE • 14 55 456 

CALL r;SUB 55 457 

C TfST ERK8R CBnOITIBk.. 55 458 

C REQUEST VALID BNLY IF DETECTS" AMD CB"^, FLAGS 3BTP 8FF 55 »S)9 

IF (XTLST.NE.O) 3B T8 1080 55 »60 

c set Change b> line and gb Te update Change table 55 »m 

F"TCh • 13 55 462 

GB TB 1070 55 *63 

C 55 464 

C Jg/176 • UETECTBR S\ STANDBY. FR81 E4/175 55 »65 

178 FITCh . 1 55 466 

ILBDE ■ 16 55 467 

CALL nSjB 55 468 

38 T8 1073 55 469 

C 55 470 

C J3/1SJ • FAILURE aCkNBI-LEOUe FBR DETeCTSR. FR8"I E4/175 55 471 

C VALID 9NLY IF FIRST START F L AG IS SET 55 *72 

1SJ IF (FSTFL.EQ.C) 36 TB 1080 55 473 

FH|Ch . 11 55 »74 

C UPDATE FAILURE TABLE AND CHfC< ERRBfc RETURN 55 475 

CALL <FMT 55 476 

IF (Fl«FL.NE.(. ) GB TB 1083 55 »77 

38 T8 1070 55 478 

C 55 479 

C J4/i«a .FAILURE REPAIR. FR8M E4/175 55 »80 

1«2 F-TCh • 12 5b »81 

C UPDATE FAILURE TABLE AND CHEC< E"«8R RETURN 55 48? 

CALL *F*1T 55 483 

IF (FlRFL.NE.C) 38 T8 1JSD 55 484 

1L8DE • lb 55 455 

CALL l"iSUB 55 486 

GS T9 1070 55 487 

C f.5/185 ..TRAFP IC C8NTRBL CB^MUN ICAT I8'-S REQUESTS.* fR6"1 Bl/102 55 »98 

C ErfR9R IF DETECT9R NUMBER GT NUMBER OF DETECT9RS 55 489 

105 IF (MoIT(l) .GT.nmvED) G9 78 1080 55 4?o 

Fr.TTY . 5 55 491 

FMTNU • MSIT(l) 55 ">9? 

C T»B CBt-.MUNlCATIBNS REQUESTS G» T9 Kl AND «2 *> c 443 

c Failure acknb-lTdTe ts ""<r *5 *9» 

IF (1!iIT(l3).EQ.O) 3B T3 187 *5 * 9 5 

l failure repair T9 <z 55 *96 

IF (-oIT(l5).EQ.D! 39 TB 189 55 *97 

C N^ SELECTION ERRBR 55 ""B 

38 T9 lOSf; 55 499 

C "-l/ls? .FaLLUBE AC<N9<LEDGE-C9fM. TRAFFIC CBNTR3L. FRB''' E5/185 55 5JT 

C REQUEST VALID 8NLY IF FIRST START FLAG IS SET 55 501 

1S7 [F (FsTFL.t'i.O) 38 T8 1380 55 50? 

FITCh . 11 55 503 

C UPDATE FAILURE TABLE AND C"EC< ERRBR RrTJRN 55 504 

CALL *FM 55 505 

IF (FLRFL.NE.OI G8 T8 10RO *5 506 

G8 T9 1070 55 507 

C K2/199 .FAILURE REPAIR"C8"1«. TRAFFIC C8NTR6L* FRB^ E5/U5 55 508 

189 FITCh • 12 65 509 

C UPDATE FAILURE TABLE AND CHECK ER«BR RETURN 55 510 

CALL «.FHJ 55 511 

IF (FlRFL-NE.O) GB T9 1080 55 512 

c Clear csmmunicatibns on and failure flag 55 sis 

1C8DE • 17 55 514 

CALL eSuB 55 515 

38 T8 1070 55 516 

C B2/?r-j ..CIC SELECTED "ITH SYSTEM CBNTR8L ENTER.. FR8M A3/101 55 517 

C 55 518 

C THREE CIC CHBICES G8 TB Fl, F2, AND F3 55 519 

c system tb fi 55 520 



91 



200 IF (MBITI3I .EU.O) G9 T9 232 55 5?j 

C SECTIBN Te F2 S5 522 

If (MSlT(»)tEUiO) GO T9 210 55 523 

C C9NTRBLLER TB F3 55 52» 

If (MoIT(5) .EQ.OI 59 T9 220 55 525 

C NO SELECTI9N ERR9R 55 526 

58 T9 108;) 55 527 

C ••1/2. .2 ••ClC SYSTEMS T*8 CM9Il.Es 59 T8 LI AND L2 FR9H 8?/l»0 55 528 

C 55 529 

C ACTIVATE T8 LI 55 53C 

202 If (MoITMOl.EQO) 38 T9 20» 55 531 

C RFLEASE Te L2 55 532 

If MsIT(ll).EOO) 59 T9 206 55 533 

C N9 SELECTJBN E"R9H 55 S3* 

59 IB IC80 55 535 

C Ll/2;» . ACTIVATE. CIC SYSTEM SELECTIBN. FR9M Fl/202 55 536 

C SET CIC SELECTEO FLAGS F8R ALL CIC CBNTR8LLrRS IN SYSTEM 55 537 

2->» 1C8DE • 18 55 538 

C«LL -1SU8 55 539 

Fi-TCi ■ 9 5b 5»0 

GB TB 207 55 5*1 

C L2/?_6 . RELEASE. ClC SYSTEM SELECTI9N. FR8-I Fl/202 55 6»? 

C CLEAR CIC SELECTEC F L AQS FBR ALL CIC CONTROLLERS IN SYSTEM 55 5»3 

2J6 -^CBUE • 19 55 5** 

CALL MSUB 55 5»5 

F-ITC1-1 • lu 55 5«6 

Sj7 F-ifTY • 1 55 5*7 

FITN'J .0 55 518 

C G8 T9 UPDATE CHAN5E TABLE AND EXIT 55 5»9 

1)9 TB 107o 55 550 

C F2/21J «CIC SECTIBN REQUEST, f 59 - B?/200 55 551 

C ER«8R IF SECTIBN NUMBER GREATER THAN NUMBER BF SECTIBNS 55 552 

21'J IF lluITIl I.GT.NMSCT) 39 TB 1080 55 553 

Fmtnu • lialT(l) 55 55* 

FMTTY e 2 55 555 

C CIC SECTIe^S TW9 CmBICES Gft T8 Ml AND h2 55 556 

C ACTIVATE 79 M l 55 557 

If (MBIT(IO).EO'OI J8 T8 212 55 558 

C RELEASE* TS Kg 55 559 

IF ('lblT(ll).E'J.OI 59 TB 21» 55 560 

C *9 SELECTIBN ERR8K 55 561 

58 T8 1080 55 562 

C "1/212 -ACTIVATE CIC SECTI8N. FRBM F?/2i 55 563 

C 55 66» 

212 FMJCm ■ 9 55 565 

C SET CIC SELECTED FLAGS t 8r ALL CIC C9NTR9LLERS IN SECTI9\ SN 55 5*6 

MC9DE • 20 55 567 

G8 T8 215 55 568 

C M2/2I» • RELEASE CIC SECTIBN REQUEST . pR9*| F?/210 55 669 

C 55 570 

21* F"<TCN • K- 55 b7 l 

C CLEAk CIC SELECTED FLAGS FflR ALL CjC C8NTR8LLF.RS IN SECTIBN SN 55 57? 

-1CBDE . 21 55 573 

215 CALL eSUB 55 57* 

G9 TB 1070 55 575 

C f3/22i • CIC C9NTK8LLER • FRBM 82/200 S5 576 

C ER H 9R If CBNTRBLLER NUMBER IS GT NUMBER 8F C9NTR8LLL"S 55 577 

22J IF C"cIT(l).GT.NMcTL) 59 T9 1380 55 579 

FMTNU • MBIT(l) 55 579 

FMTTY .3 55 580 

C T„8 CIC CBNTRBLLER REQUESTS gB T9 Nj AND N2 55 6S1 

C ACTIVATE TB Nl 55 582 

If (naIT(10)«E0>0) j9 TB 22? 5b 583 

C RELEASE TB N? 55 58* 

IF MoITlll ).E0O> 39 T9 22* S5 685 

C Nb SELECTS E"«9R 55 586 

G9 TB 1080 , 55 587 

C M/222 "ACTIVATE ClC CBNTRBLLfR REQUEST* FRflM Fj/220 55 58g 

C 55 589 

222 FmTCh . S 55 69c 
C SET CIC SELECTED FLAG FBR ClC CBNTRBLLER CN 65 591 

*CBOE • 22 55 592 

223 CALL i-SUB 55 593 
C ER^BR IF CBMTR9LLER CN IS NBT A CIC CBNTRBLLFR 55 59* 

If (M.TEST.ME.O) 38 TB 1080 5b 595 

C 55 696 

59 TB 107o 55 597 

C N 2 /,?i, FR8,-, F3/2?o .RELEASE CIC C8NTR9LLE- REQUEST. FRBM F3/220 55 598 

C 55 599 

22* FMTCrt • lo 55 600 

C CLEAR CIC SELECTED FLAQ FBR CIC CBNTRBLLER C* 55 611 

•1C8DE • 23 55 602 

56 TB ?23 55 633 

C 55 63* 

C 55 635 

C Cl/3 ; ...MAP C9NTR9L ENTER SELECTED'" FRBM A 55 606 

C RETURN FRBM MSU1 *ITH 55 607 

C MBIT(5].MBIT(15). 55 608 

C UNFACKE'J BITS b - 15 9F CPNIN hBRD 1 ANO MAP READY TjRNED BN 55 609 

C 55 610 

C A.fHASE GREEN 55 611 

300 IF MuIT(12|.ne.O) GB T9 J °l 55 6,? 

CNDIS ■ 5b 613 

SB TB 3u2 55 61* 

C C9NTRHLLER DISPLAY 9FF REUUEST 55 615 

3U1 IF (MoIT(15).E0-0) CNDIS • 1 55 616 

C SU*vEILLANCF UISPLAv BFF REQUEST J>5 617 

302 If IM6ITdll.EC.OI SRUIb • n 55 618 

C TRAFFIC CONTROL TB C2 55 619 

IF (MdIT(5).EQ«0) GO TB 3J6 55 620 

C CIC REOUEST 55 621 

IF I 1bIT(o).E».OI GB TB 30» 55 62? 

C NH SELECTIBN TB Ct» TO SChECOLE J AND EXIT 55 623 

G8 T9 1095 55 62* 

C CIC CONTROLLER DISPLAY RESUEST 55 625 

C STATUS 55 626 



92 



30* I f (MbIT(l31.E0i0) CNDIS • « S5 637 

C G8 TB SCHEDULE J AND EXIT 56 628 

38 T8 1095 55 629 

C C2/306 FRBK C1/3C2 55 630 

C .TRAFFIC CBNTRBL MAP REQUE6T. 55 631 

C EQUIPMENT FAILED 55 632 

306 IF IidITi 10i.EQ.0I SRDIS • 1 55 633 

C CIO STATUS 55 63» 

If (mb1T(13).NE>0) SB T9 308 55 635 

CNDIS • 2 55 636 

SB TB 310 55 637 

C FAILEU 55 63! 

308 I* (MBITUM.EQOI CNDIS ■ 3 55 639 

C FLB« OATA 55 6*0 

310 IF (MdlT(B).NE.O) 39 TB 1095 55 6»1 

C C» 55 6*2 

MC8DE • 2* 55 6*3 

CALL MSUB 55 6»» 

IF (MTEST.NE.O) 38 T9 1095 55 6*5 

S*DIS • 3 55 6*6 

88 T9 1095 55 6*7 

C 55 6»B 

C STATUS DISPLAY ENTER . 55 6*9 

C RETURN FRBrt MSUB «ITN DISPLAY READY 8N 55 650 

C CPNIN BITS (g) THRU (15) 8F »PRD 2 ARE UNPACKED AND IN 55 651 

C MBIT (8) THRU (15) 55 65? 

Z 55 653 

C GET CRT INDEX 55 65k 

«0J IP (MoIT(S) .NE.O) U8 T8 401 55 655 

1 • 1 55 656 

S" TB *15 55 657 

C DISPLAY ERR9B/ NB SELECTIBN 55 658 

• 01 IF (MnIT(9>.NE.0> G9 TB 106j 55 659 

1.2 55 640 

♦15 IF (MnIT(l5>.SE>0> GB TB »0S 55 661 

C TRAFFIC SYSTEM INTERSECTION 55 66? 

C «3IT( 7) ■ CTLSYCJ8.) BIT 55 643 

C MBIT(16) ■ INTERSECTION/CBNTRl'LLER -UMBER 55 66* 

C TEST £RRB« CBNOITIBv. C8NTRBLLER NUMBER NBT V ALID 55 665 

IF (MBlT(7)iEa.O) GB T8 106; 55 666 

IF (MHTU61.UT.NMCTL) 08 Te 1060 55 667 

C VALID NUMBER 55 66g 

ITRNM, J 1 . M(tIT(16) 55 669 

C SET J F9R DISPLAY C9D£ 55 670 

J . 5 55 6M 

08 TB *0» 55 67? 

C Ug/» ,2 L8CATE INDEX F9R DISPLAY C90E FR8M A/«00 55 673 

»oa D9 »yj J« 1»« 55 67* 

< ■ J t 10 55 675 

IF (MBIT(K) tEQ.O) 58 TO »0» 5b 676 

*03 C»NT1,..UE 55 677 

C DISPLAY ERR9R< NB SELECTIBN 55 678 

SB TB 1060 55 679 



C SET DISPLAY CBOE 

♦Of ICRTc I ) • J 
C Dll TEST IF LAST REQUEST CA"E M8R£ TH A v » Sf.ceNDS Aj9 

L • RTC • CRTLL 
C 6 SEC8N0S SCALED h5 ■ 192 

C RESCHEDULE R9UTINE X USING LPU'H D9WN CLBCx 
KCNT.l 

!F(L»LTtl92) KCNT.6-L/32 
C RESET REQUEST CL8CK 

• C-UCL • RTL 
C GBBO-bY 

as TB 100.' 

c 

c exits frbm routine » 

c 

C Y/1: 50 TURN 8N «AIT 
1063 MC9DE • 26 
09 TB 1JM 
C Z/1^61 DISPLAY ERRPR CBNDITIBN 
106J MC9DE • 27 
i8 T9 1081 
C XTa/1373 UPDATE CHANGE TABLE 
1070 CALL HF^T 
S9 T9 1000 
C CU/1095 ALL MAP CftNTRBLS - SCHEDULE J 
109b MAST <J|> AST) • 1 
G9 TB 1300 
C X/1^60 SYSTEM ERROR CtiN0lTI9N 
10SJ MCDE • 28 
1C41 CALL -sua 
100J RETURN 
END 



55 


610 


bs 


681 


65 


68? 


5b 


613 


55 


68k 


55 


615 


55 


616 


55 


6H7 


55 


618 


bb 


689 


5b 


690 


5b 


691 


55 


69? 


5b 


693 


55 


69* 


55 


695 


55 


696 


55 


697 


55 


698 


55 


699 


65 


700 


bb 


701 


55 


702 


65 


733 


bo 


70* 


55 


705 


b^ 


706 


5b 


707 


55 


708 


55 


739 


65 


710 


55 


711 



93 



2. 6. 52 SUBROUTINE HFMT 



WUTJ^e: 



-1FMT 
SJBR9uTlJt "»F,1T 

INTE^E* FMTTY,F»TWjF»TCH»TI«E 
INIECjE" Hr*ST 

IMEBE" CT"Pr,Ti«\,TCHA J,TE»IN 

3I"lENSIS'l CTYPE(b), IC-4M 131.1 mU"I(»), I TYPE ( 5 ) » TO* v( 1 3 > » T I"IF < * 
1 .Txa'.|13) 

DIMENSION LTAbL(220) 
C91M9 < /dL<» / F1C . Fr<Ar(K / 14STI9I 

• -^iaST , J"aST , <"AST , E^AST 

• HiAST / W1AST , QMAST i I1AST 

• S"ACE > MP3KY , QCNT 
CB'IMSn /nA-)US/ F"«TTY , FHVU , F*itCh 

. ITR\l,-;,2) 

C9"'M8\/HSUB2/91>'.D,CTABL» ! BL 

EJ'JlVA^E<CL(TC-AMd),TflAMl ) | 

E5UIValENCE(IChani(1),TChak(1j) 

EjJIvAlE'.CEI I TYPE! i l.CTYPEU I ) 

■QU1vAlENCE1TEXIN»TKAN(13)) 

DATA CTYPE/'SYS '.'SEC '. 'C8\T', 'DET ','DC^ 1 / 

DATA IlL' IBLNK.TCHAMU I/O. ' 'j'SThV/ 

BAT A Tf;AN(l)»TKAN<g)»TMAN(3),TMAN(»),T"AN(b)«T1A\(6)j 
1 T^»<lo)iT(-»N( j)»T-'AM( 13), TMANI 11 I .T 1A" I 1?) 

g/'^AN ',"T8L> •,tT«SP'i , «8N ', '"8FF-, iS p LT', 'PFST', 'CC 
3AC<'. 'r<EPR'* "8NLNV 

DATA TeXlN/'EXI*'/ 

SET INDEX 

I • 5«!BL 

SET TIr.t BF Day 

CALL TIlEMTIlfc) 

STORE TI1E IN TAbLE 

CTABLd+1) ■ TI"E(«) 

PICK OP TYPE CBDE 

CTABLI 1*2) ■ ITYPE(F*TTY) 

PICK ut- 6I\a^y SJIpfcR 

jE' LAbT T„8 BYTES BF cMA-tv NUMBER 

* ■ D 

CALL haLF(F«TNU,2, IT-P) 

CALL PTh|_F(K,2» IT^P) 

C9NVF.RT S^A»y NuM'iER TB EBCDIC 

CALL ElS^Tl*, I'.UM) 

STBRE >JiB£X T.NTB TAJLL 

CTABLI I*j) ■ I".u:1!2> 

PIC*. JP CHANGE CBDE 

< • 

CALL NALF(F"iTC",2.ITi»P] 

CALL PTHLF (*.2, IT1P] 

STBPE L^ANjE INTB TAr-LE 

CTAfcLI !♦♦] ■ ICmA-jiK) 

SE' PATTERN *u~ B ER IF ChAM'jE IS MANUAL PATTERN 

IFIT-1A (D.E3.TCAMK)) oB Tn 20 

SET EaTEJSIB-j if Change IS "anual EXTf v SI9n 

IF(TEXIN.£j»TC«AN(K) ) 3 1 * TO so 

INUf>(2> • IB L N* 

35 to O o 
2: C9NTI ,ofc 

uE' PATTER\ MU"BER PRO" 1 JPPES MALF BF F-.TCM 
CALL nALFlfTCn, 1, ITMP) 



33 TB .0 
30 C9NTIn u E 
C (if. T PATTER'* NUI"RE3 FR61 UPPtR HALF BF F^TNO 
CALL -tALF|F M TNu, 1, ITKP] 
»:■ CSNTlNuE 
C CHANCE TB EBCDIC CBPE 
CALL ElSRTl ITMP/ INb*) 
bi CBMTI-^E 
C STOfiE IN TABLE 

CTABLlI+b) ■ I^U^HE) 
C IMCPE^L^T IBLITe 9B-AL=* C^EC< MAX VALUE 9F 
IHL • IBL + 1 
IF( IhL.LT. *»> i9 T9 100 
C TABLE FULL, SET PRIM BUT FL*o 
I--P3K.Y r MPoXY ♦ i 
KAST<h,-,AST) ■ 1 
100 CONTINUE 
-<ETu3n 
: nJ 





31 


1 




31 


? 




31 


3 




31 


» 




31 


5 




31 


6 


I ICHl 


31 


7 




31 


B 




31 


9 


, 


31 


10 


, 


31 


11 


, 


31 


12 




31 


13 


, 


31 


1* 




31 


15 




31 


16 




31 


17 




31 


19 




31 


19 




31 


2? 




31 


21 




31 


22 


(7). 


31 


23 




31 


2» 


■CCBF ', 


•F 31 


25 




31 


26 




31 


?7 




31 


2? 




31 


29 




31 


3D 




31 


31 




31 


32 




31 


33 




31 


3 A 




31 


35 




31 


36 




31 


37 




31 


3? 




31 


39 




31 


**0 




31 


"1 




31 


A? 




31 


A3 




31 


A<t 




31 


A5 




31 


»6 




31 


• 7 




31 


1»B 




31 


A9 




31 


53 




31 


11 




31 


5? 




31 


53 




31 


5a 




31 


35 




31 


56 




31 


b7 




31 


58 




31 


59 



il 


60 


31 


61 


31 


6? 


31 


63 


31 


6* 


31 


65 


31 


66 


31 


67 


31 


AS 


31 


69 


31 


70 


31 


71 


31 


'? 


31 


73 


31 


7* 


31 


;5 


31 


76 


31 


77 


31 


75 



94 



2.6.53 SUBROUTINE KFMT 



MUTINU KfMT 



c 


• KFMT 

SJ«R9JTINE «FMT 








1 
2 

3 

4 


c 
c 


FaIlURE ACKN9WLED3E / FMuUHE "EPaI" R9ltine 




c 


CALLED FN9M RTNM 








s 


c 


l\rE0E" ALA*'< 








6 
7 




INTEGER FMTTY , FMTNU 


l 


FmtCh 




8 




ISTfL-Ert FL-i>-L, FLTAB, CPN9T. CASEC, SF.CFC 


, L-WL 


, SCDFC, * 


9 




• FTrt"D, FTAB 








1C 


£ 










11 




C9""m8m /maRUS/ FMTTY , FMTNU 


I 


FMTCH 


1 4 


12 




• ITRNifJ; 








13 




CS^MBrj /BLKiO/ CICSCH6! » C!CSY|«> 


t 


CTLSCtl 


A) / * 


14 




2 CTlSYCO.CNSECiSI )/CNTZ\lU9uL*"<CN((,9l. 








15 




■ TIMChi*) , ZSII32) 








16 




CSMMBN /BL<13/ OWL1259I . DwLP(|7> 


t 


E90C 


1 4 


17 




1 FTAB, FTB.J. M9EIFI69) 








IB 




CBMKB-. /BL-U5/ CMSET , HBUFL 


• 


IGPI 


1 4 


19 




• MNuMF , NBMCM , NCWJJ 


j 


NChD2 


1 4 


20 




• NCkRO , NMANP , NMCTL 


t 


NMLNK 


, 4 


21 




. NiSCT i NMvEC < NPATB 


i 


npb» 


i 4 


22 




• NRESP , NSTMj , TBS1Z 


i 


TBYTE 


, 4 


23 




. cs ,os . fs 


t 


NS 


1 * 


24 




• as , rs , ss 


i 


scs 




25 




C9-<I~9N /BL<22/ CRTbl(512) . CRTb2 ( 512) 


l 


CRTD; 


> 4 


26 




. C-<TD2 , CRTFj , CRTF2 


# 


FLRFL 




27 




C9">MB\ /SL«25/ AHCC(l3a)» CMmaL<17># C«TAB(258)» 




28 




• T TAB(258l ' 0ISU7) , DMAlF ( i7) 


f 


DM9DE 


t 4 


1 89 




» FLTA4(800l » MRF , MBOES 


i 


NAI 


i 4 


I 30 




• \9FAL, SBA*(69I« SECFCI4). SC3FCI4), V8LH38I 




L 31 




CeMM8\/dLK29/AGR(14),PIA<6),RC l (2),H S 9( 1 4) 


AP8MK1.), 


C B MUjCPN8T» 4 


32 




• MARR(si»0) » MMAP(2) , JCNT 


l 


KCNT 


# 4 


L 33 




• MNC15 i "HSBF , CL9CK 


$ 


W-INF 


# 4 


L 34 




. MINCT t TABI3) i N9N9IR) 








1 35 




3ATA ALARM/ 16/ 








I 36 




IBYTE • NB^Ch/8 








L 37 




FLRfL • u 








t 38 




IF(NBFAL.Ett'C) GO T9 33 








I 39 




IF(N9FAL.LE'MNuMF) SB T8 10 








t 4 




IN'JEX • »>KNUMF«3 








I M 




SB TB ?0 








I 42 




10 CS^TlNbE 








L 43 




IN3EX ■ 4.M9FAL.3 








I 44 




23 Ce^TIMbE 








45 




LAST • INDEX 








1 46 


c 










I 47 


c 


•TEST [F REPAIR 9R ACKN9WLEDQE 








1 48 


c 


IFIFMTLH.E3-12) G9 TB 60 
CALL SRCFTl INDEX#IRTN) 








L 49 
I 50 
I 51 


c 










t 52 


c 


BRA»C-t F9R nbRmal RETURN 








1 53 


c 


IF( IRT*>EU.1 ) <i9 Tfl »0 








1 54 
I 55 


c 










1 56 


c 


ERRBR RETUR"> 








\ 57 


c 


33 C9NTINUE 








L 58 
L 59 



95 



FL*FL ■ 1 
RETURN 
»0 C9MTI tx.1 

C SET *CKNB«LEOSE ■ YES IS TAIL TABLE 

r 

INB • (INDEX-llkk ♦ 1 

CALL PTav ( FLTAd, INU,1) 
5: CSNTP.uE 

C TUR> 9FF ALARM 

c 

CALL PTB1 (C'NBT, ALARM, 0,0) 
C 

C TURN BFF LIUHT 
C 

LIOHT a FfTTY ♦ 7 

CALL PTtJI (C^NST, LIGHT, 0/0) 
C 

C G8 T9 NSXMAL RETURN 
C 

69 TB 130 

C FAILURE REPAIR 
C 

60 CBNTlNuE 

CALL SHCFTc InDEX»I»TN) 

IF(IRTK.EQ.O) 08 T8 30 

MBFAL • M8FAL . 1 

IEON ■ FMTNU 
C 

C IS THIS A CBNTR8LLER 9R A C91/0ET FAILURE 

C 

IFlFITTY.ME-3) GB TB 90 

CALL 3ETdV<CNSEC,IEQN,ISECT) 

5ECFCUSECT) • SECFC(ISECT) . 1 

ISAvE • INDEX 

i)8 TB 100 
C 

C PRBCESS CBM/CET FAILURE 
C 

90 CSMTlNoE 

CALL HALF(0"L, IEIJN, IDKL) 

CALL 3£TBY(LNKCN, ID»L*1,ILC8>. ) 

CALL 5£TaY(C\SEC«lLC6N*l,IC8NS> 

SCUFC(ICBNS) • SCOFCl IC9NS)«1 

ISAVE • INOtX 
100 CSMInuE 

ISAVE • ISAVE . « 

IF( ISAvE.GT.LAST) uB TB 120 
C 
C CLOSE UP Gaps In FAIL Table 

c 

IMJX1 • [ I JUEX-1 ).« / IBYTt 
INJX2 • IISAVE-1I** / IBYTE 
IEND • 16/IdYTE 
08 llj laltlEND 
IVJX1 • IN0X1 ♦ 1 
INJX2 • INOX2 ♦ 1 
FLTABI INUX1 ) • FLTAB(I\0<2) 
110 CSNTlNuE 

1VJEX • INDEX ♦ k 





08 TB 100 


ISO 


CSNTINuE 


c 


DE'CKE«EnT fail 


c 






FTBhD • FTBO - H 




fTAB • FTAd . 16 




CB TB 50 


130 


CBNTINuE 


c 


N6RI-AL RETURN 


c 






DB 2bu J«1,N9FAL 




L»< J-l !•»♦! 




K . L ♦ 3 


250 


CflNTINuE 




RETURN 




ENU 



*1 


60 


»1 


61 


»1 


62 


M 


63 


• 1 


64 


»1 


65 


M 


66 


• 1 


67 


•1 


68 


M 


69 


»1 


'0 


»1 


71 


»1 


72 


• 1 


73 


M 


7» 


»1 


75 


•1 


76 


»1 


77 


*1 


'S 


•1 


79 


♦ 1 


80 


»1 


81 


•1 


82 


»1 


83 


»1 


8k 


»1 


85 


»1 


86 


M 


87 


♦ 1 


8? 


»1 


89 


»1 


90 


M 


91 


»1 


4g 


"1 


93 


• 1 


9k 


»1 


95 


♦ 1 


^6 


"1 


97 


»1 


=)g 


"1 


99 


M 


100 


*1 


101 


»1 


102 


"1 


103 


»1 


104 


»1 


105 


»1 


106 


M 


107 


M 


108 


"1 


109 


»1 


110 


"1 


111 


»1 


112 


»1 


113 


»1 


Ilk 


M 


115 


• 1 


116 


M 


117 


»1 


118 


»1 


119 


•1 


120 


»1 


121 



"1 


122 


»1 


123 


•1 


12» 


"1 


125 


»1 


126 


*1 


127 


M 


12! 


»1 


129 


»1 


130 


»1 


131 


♦ 1 


132 


*1 


133 


*1 


13k 


M 


135 


"1 


136 


*1 


137 


*1 


138 


M 


139 



96 



2.6.54 SUBROUTINE MSUB 



RSUTlNE! MSUB 



<sus 




DtF 


-SUB 


«£f 


"SJ91 


R£F 


-SUB2 


R£F 


"ARGS 


R£F 


AUT8F 


R£F 


AVMPAT 


REF 


...AV1PAT 


R£F 


C1CEF 


REF 


l-ICSCT 


REF 


CICSF 


REF 


CICSYS 


REF 


CKALF 


REF 


CIMalF 


REF 


C6NSEC 


REF 


CPANJN 


REF 


CPAN8UT 


REF 


CTLSEC 


REF 


CTLSYS 


REF 


CYCLC 


REF 


U1S 


REF 


Df ALF 


REF 


DM8DE 


REF 


DPATMJrt 


REF 


ENTRVBFF 


REF 


FMSECF 


REF 


FPSYSF 


REF 


FSETCF 


REF 


GAbBCABC 


REF 


GATEM.6BTE 


REF 


4A«TEMP 


REF 


GBWTE1P 


REF 


GMNABCt 


REF 


HL08FF 


REF 


H8LO 


REF 


HSBUF 


REF 


<CL 


REF 


"ASK 


REF 


MCDF 


REF 


"I 


REF 


"8DE* 


REF 


\C»RO 


REF 


SC-RD2 


REF 


N^ANPAT 


REF 


MPATdYT 


REF 


NRESPAT 


REF 


\UMCTl 


R£F 


'L'MSCT 


REF 


8FT8P 


REF 


PARC80 


REF 


RTC 


«EF 


SEM«S< 


REF 


SHTFLIj 


REF 


SPLChU 


REF 


ST6VC 


REF 


SUMABCT 


REF 


SU«C8N 


REF 


ThRES" 


REF 


TIMMCH 



6 


9 


& 


10 


6 


11 


6 


1? 


6 


13 


6 


14 


6 


15 


6 


16 


6 


17 


6 


18 


6 


19 


6 


20 


6 


ai 


6 


22 


6 


23 


6 


2* 


6 


25 


6 


26 


6 


27 


6 


28 


6 


29 


6 


30 


6 


31 


6 


3? 


6 


33 


6 


3<* 


6 


35 


6 


36 


6 


37 


6 


3S 


6 


39 


6 


»0 


6 


»1 


6 


»? 


6 


»3 


6 


»» 


6 


»5 


6 


• 6 


6 


47 


6 


»B 


6 


»9 


6 


50 


6 


51 


6 


52 


6 


53 


6 


51 


6 


55 


6 


56 


6 


57 


6 


58 


6 


59 





REF 


TRANSF 




REF 


TSTAST 




REF 


«RK8FF 


Rj 


EQi 


c 


*1 


Eji 


1 


R2 


Eyi 


2 


R3 


Eui 


3 


Rl 


EOu 


l| 


Rb 


EQu 


5 


R6 


Eau 


6 


R7 


EQu 


7 


Rb 


EQu 


a 


R9 


EOu 


9 


R1C 


EQu 


IS 


Rll 


EQu 


11 


RIB 


EOu 


1? 


R13 


EQu 


13 


Rl» 


EOu 


10 


Rib 


EQu 


15 


citsc 


EQu 


CICSCT 


cicsr 


EQu 


CICSYS 


C11AL 


EQU 


CMMALF 


C\SEC 


EQu 


C8NSEC 


CPN1N 


EQu 


CPANIN 


CPN8T 


EQu 


CPANOUT 


CTLSC 


EQu 


CTLSEC 


CTLST 


EQu 


CTLSYS 


FMSCF 


EQu 


FMSECF 


Fmsyf 


EQ U 


FMSYSF 


FSTCF 


EQu 


FSETCF 


OAABt 


EQu 


OABBCABC 


8*"TP 


EQu 


QAKTEMP 


OBwTP 


EQu 


llBtaTEMP 


OMABC 


EQu 


GMlNABC* 



60 
61 
*2 
63 
6* 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7* 
75 
76 
77 
78 
79 
80 
81 
82 
83 
S» 
85 
86 
87 
88 
89 
90 
91 
»? 
93 
9» 



97 



N8DES 


EOu 


«9DE» 


nC-02 


EQu 


NCWRD2 


NPATB 


eou 


NPATSYT 


vMSCT 


EOU 


NUMSCT 


■IRESP 


EQu 


NRESPAT 


SfS< 


EQu 


SFMMSK 


iPLCH 


EQu 


SPLCHQ 


SABCT 


EQU 


SUMA8CT 


TH*SH 


Eau 


thresh 


TI1CH 


E3.U 


TJMHCH 


TRNSF 


E"3u 


TRANSF 


TSIWT 


EQU 


TSTART 


.RKBF 


EOU 


*RK8FF 


NMANP 


EQU 


NMANPAT 


MBIT 


EQu 


MSUBl 


ilCOOE 


EUu 


MSUBl»16 


MTEST 


EQu 


MSUBl»17 


ME*1T 


EQu 


MSUBl»18 


IPRT 


EQu 


MSUB1M9 


ITIME 


EQu 


MSUBl »20 


MSER 


EQu 


»SUBl»21 


FMTTY 


EQu 


HARQS»D 


FMTNU 


EQu 


HARGS*1 


FMTCHG 


EQu 


HARaS«2 


TIMBJF 


EQU 


"SUB? 




SPACE 


? 


^TS 


RES 

PAGE 


2 


. B ^C 


JSEC Tr> 9riTAI\ « SIT 


. -«if-:r 


'-NCCL OY 






6BT 


o,. . e 



MBITU ).M6IT(16) 

SET BY RTNmm-ShB„S I.HERE TB QB 

SET BY HSUB F8R TESTING BY M 



B • BIT P9SITIBN C9NTAINING ImPjT BIT 

• 0-31 

. . ■ OMM >«R0 NUMBER 

. l-» 

I'vP'jt hit is placed in resisted is 

C'4A1E 

PSSC 

L««Rl2 CPNI\*(?«AF[g).g) CM' IS INTERLEAVED 

A',L,R12 MASK»AF(1) 

PE.-.D 



I ■ BIT P8SITI8N IN T W E CBNTR8L PANfL 
BUTPUT «BRD (CPN9TI 8F PULSE 
• 0-5 



. P«9C 


JSEJ T9 TU^N gN CBN 


. HtFERENCEC. BY 








PBT 


1 






USES REGISTER 7 


PbT 




CNAME 

PR=C 








L1jK7 


AFtl ) 






L».R7 


MASK.R7 






STS.R7 


CPN9T 






PE <0 








TITLE 


"MSUB-S 


1SUM 




RES 
LCI 


r, 






sr«»o 


SREGS 


• 


Clear "SUB ( 


KR8« FLAG 






LI.R1 


I 






ST..R1 


MSER 






ST-.R] 


"TEST 



MSUB-SUBRBUTINE TB RBuTIN£ Mi 





SAVE REGISTERS 



CLfAR 

L«.Rb "CBDE 

BjtZ CKV G9 TO CHECK VALUE 

TU-M 9F^ ALL PANEL BUTPL'T PJLSES 

L»/R1? CPNBT* 

AND.R12 .x'OSfFFrFF' TURN BFF ALL PANEL OUTPUT PULSES 

ST«»R12 CPN9T 

15 MINuTE *EPB-.T FLAG 

OBT 15.? 

ST..R12 IPRT 

PROCESS ENTER BITS IN «BRD 1 8F CP'-IN 

GBT 0/1 

system csntrbl enter tb ai 
map c9ntr9l enter tb c1 

STATUS DISPLAY T8 Dl 

NH SELECTION, SET MEXlT 

Ll.^b * 

ST,/R6 Mf»IT MExIT . * F8R N8 SELECTI8N 

B WFST 

SYSTEM CuNTRBL E^TER SELECTI8N. 

RES I 

7 1 

SET MEXIT T8 1 F3R SYSTEM C 
TURN 8N SYSTEM READY 
SYSTEM SMUT D8«N FLAG 
REST8RE REGISTERS AND EXIT 
SYSTEM SHUT.DSxN 

MTEST illiSH SYSTEM SHUTDBhN 
REST8RE REGISTERS AND EXIT 

MTEST .<1»2)« SYSTEM ShUTDBWN 
TRAFFIC CBNTR8L 

MBITI2) ■ F8R TRAFFIC C8NTRBL 
G8 TB UNPACK DATA 

tic 



BEZ 


Al 


GBT 


1,1 


BEZ 


Cl 


GBT 


2.1 


BE,. 


Dl 



LI.R7 


1 


ST..H7 


MEXIT 


P6T 





Li.Rl-2 


SHTFLG 


bNt* 


REST 


GBT 


1.2 


BNEZ 


A3 


STnR12 


"TEST 


B 


HfST 


RES 


c 


ST...R12 


MTEST 


GBT 


0.3 


BNEZ 


».3 


ST..R12 


MBIT*1 


b 


B20 


GBT 


1.3 


BE/ 


B2 



6 


95 


6 


96 


4 


97 


* 


9( 


1 


99 


6 


100 


6 


101 


6 


102 


6 


103 


6 


ID* 


6 


105 


6 


106 


6 


107 


6 


108 


6 


109 


6 


110 


6 


111 


6 


112 


6 


113 


6 


11* 


6 


115 


6 


116 


6 


117 


6 


lie 


6 


119 


6 


120 


6 


121 


6 


122 


6 


123 


6 


12« 


6 


125 


6 


126 


6 


127 


6 


12! 


6 


129 


6 


no 


6 


131 


6 


13? 


6 


133 


6 


13* 


6 


135 


6 


136 


6 


137 


6 


138 


6 


139 


6 


HO 


(t 


1»1 


6 


1»2 


b 


1»3 


6 


11* 


6 


1«5 


6 


1*6 


6 


1*7 


6 


1*8 


6 


1*9 


6 


150 


6 


151 


6 


152 


6 


153 


6 


15* 


6 


■ 155 


6 


156 


b 


157 


b 


158 


b 


159 


b 


160 


b 


161 


6 


162 


6 


163 


6 


16* 


6 


165 


6 


166 


6 


1*7 


b 


168 


b 


169 


6 


170 


6 


171 


6 


172 


6 


173 


6 


17* 


6 


175 


b 


17* 


b 


177 


b 


178 


b 


179 


b 


180 


b 


181 


b 


182 


6 


183 


6 


18* 


6 


185 


6 


186 


6 


187 


6 


188 


6 


189 


6 


190 


6 


191 


6 


19? 


6 


193 


6 


19* 


6 


195 


6 


196 


6 


197 


6 


198 


6 


199 


~6 


200 



98 



B2 

B2U 



15.2 



LI.R12 -1 

ST*.R12 MBIT*] 

B REST 

LI.R12 1 

ST...R12 "BIT*1 

UNPACK AND STORE IN MBIT ARRAY 



MBITI2) .-1 F9R N8 SELECTT9N 
RESTORE REGISTERS AND EXIT 



MBITI2) •♦! F9R CIC 



L1.R7 


3 


L«»R12 


CPNIN+4 


AND/R13 


MASK.R7 


ST„#R12 


MBIT.I.R7 


AI.R7 


1 


CI.R7 


15 


BLE 


»-S 


RES 





BAL/R8 


TIME 


STW«RJ2 


ITIME 


UW.R12 


"B1T*2 


BEZ 


REST 


NEED T8 


CONVERT 4 DIGITS 


L»»RJ2 


CPNIN** 


BAL>RS 


CNV4 


ST..R12 


MBIT 


SET UP ' 


'BIT 1 16 1 


GBT 


G.4 


BNEZ 


»*3 


ST«/R12 


MBIT+15 


B 


REST 


GBT 


lit 


BNEZ 


• ♦3 


LI.R12 


1 


B 


B21 


GBT 


Si* 


BNEZ 


**3 


L1.R12 


2 


B 


B21 


LI.R12 


3 


B 


BJl 


MAP C8NTRBL ENTER 


RES 





PBT 


1 


LI.R12 
ST»»R12 


2 


■ MEXIT ■ 


UNPACK AND MBVE DATA 


LI.R7 


b 


L..R12 


CPNIN 


ANL.R12 


MASK.K7 


ST-..R1? 


MBIT-1.R7 


AI.R7 


1 


CI.R7 


IS 


BLL 


*-5 


B 


REST 



STATUS JISPLAr ENTER 



RES 
PBT 

LI.R12 
ST..R12 

LI.R7 

L».«12 

ANu»Rj2 

ST~»R12 

AI.R7 

CI.R7 

BLE 

U«,R1 

BNEZ 



2 

3 

"EXIT 

UNPACK AND 

B 

CPNIN. 2 

MASK.R7 

M6IT-1.R7 

1 

IS 

*-b 

"BIT. 14 

REST 



C8nvE*T NUMBER 

L*.R12 CPNIN.2 

BAl»R8 CNV3 

ST»»«12 MBIT. 15 

L*.R13 R12 

BAl«R8 BMGl 

LS.R13 CTLSY-6 

ST*.R13 MBIT. 6 

6 REST 



INDEX FBR MASK 
»9RD 3 INTERLEAVED 



BIT(MASK«I IG8ES TB MBIT(I) 



NEEDED BY SYSTEM AND SECTI8N REO 
TIME 8F MBDE CHANGE 



SYSTEM 

SB TB REST6RE REGS 



CBNVERf 

MBITI1I .CONVERTED it OIGITS 

MANUAL PATTERN 

MBIT(161«0 FBR MANUAL PATTERN 
G8 T8 REST6RE REGISTERS 
A. PHASE GREFN 

MBIT(16)«1 FBR A. PHASE GREEN 

OFFSET 

ERR8R. N8 SELECT I8N 

MBITI16I" 2 FOR BFFSET 

MBIT(16)«3 FBR N8 SELECTI8N 



TURN 8N MAP READY 

MEXIT • 2 F8R MAP CBNTR8L ENTER 



INDEX FBR 
.SRO 1 



BITCASK.I I GOES T8 MBIT( ! ) 



TURN 9N DISPLAY READY 

MEXIT . 3 
A 

INDEX FBR MASK. 1.8.15 



BITCASK.I | G9ES TO -BIT ( T ) 
15,2 TRAFFIC INTJRSECTI8N BIT 



MBlTflfc). INTER SECTION NUMBER 
SET UP F8R BMGl 



SAvt IN MBITI7I 



CHtCK vfALUE BF MC9DE TO FIND '„HERr TB GB 
RES 



LI.R6 


1 


C*,R<, 


^■C8DE 


BE 


IC-l.Rfe 


AI.Rs 


1 


CI.R6 


28 


BLE 


' s-4 


U 


DfBUb 


faE 


REST 


PAUL 




RES 





L*,R12 


■X'FFFoDGOD 


ST^.M12 


MCDF 


LI.R13 


3 


L».R1* 


NCSCT 


LI.Ro 





sto, Rn 


QMOOf.Rs, 


AI.R& 


1 


B.«.Rl4 


• -2 


B 


REST 



TRAFFIC RESPBNSIvE CE^jEST 
SET M8DE Change DESIRED FLAGS 
F8R ALL SECTIONS 

3 F9P TWAFtIC RESPONSIVE 



SET r 'ESIREL' mode FLAi 
FOB ALL SECTIONS 



GO 19 RESTORE REjS 



• SET 
G4 



M83E » -0 DESIRED MODE 
RES 



STAND-BY F83 ALL SECTIONS 
STAND-BY REQUEST 



6 


201 


6 


202 


6 


203 


6 


20<t 


6 


205 


6 


206 


6 


207 


6 


208 


6 


209 


6 


210 


6 


an 


6 


212 


6 


213 


6 


21* 


6 


215 


6 


216 


6 


217 


6 


218 


6 


219 


6 


220 


6 


221 


6 


222 


6 


223 


6 


224 


6 


225 


6 


226 


6 


227 


6 


228 


6 


229 


6 


230 


6 


231 


6 


232 


6 


233 


6 


23* 


6 


235 


6 


236 


6 


237 


6 


238 


6 


239 


6 


240 


6 


2*1 


6 


2*2 


6 


243 


6 


204 


6 


245 


6 


246 


6 


247 


6 


248 


6 


249 


6 


250 


6 


251 


6 


25? 


6 


253 


6 


254 


6 


255 


6 


256 


6 


257 


6 


258 


6 


259 


6 


26p 


6 


261 


6 


262 


6 


263 


6 


264 


6 


265 


6 


266 


6 


267 


& 


268 


6 


269 


6 


270 


6 


2?1 


6 


27? 


6 


273 


6 


274 


6 


275 


& 


276 


6 


277 


6 


278 


6 


279 


6 


280 


6 


281 


6 


28? 


6 


283 


6 


284 


6 


285 


6 


2*6 


6 


287 


6 


288 


6 


2S9 


6 


290 


6 


2S] 


6 


292 


6 


2<*3 


6 


294 


6 


295 


6 


296 


b 


297 


6 


2'<8 


6 


2<*9 


6 


300 


6 


301 


6 


3"i? 


6 


J03 


6 


304 


6 


305 


6 


306 


6 


307 



99 



Lw.Rl* 


NMSCT 


LI.R6 





L1.R12 





STS.R12 


M8UES.R6 


STt-»H12 


DMB0E.R6 


A I,Rt> 


1 


BDK.R1* 


*-3 


D.oY DESIRED Flags am 


LI.R1* 


NC.RD 


LI. "6 


C 


LI.R11 





Lw.RiZ 


pX'FFFFFFFF 


ST..R11 


AUT8F.R6 


ST..R12 


STBYD.R6 


AI.R6 


2 


BOR»Rl* 


*-3 


B 


REST 


RES 





L*.R12 


•X'FFFoODOa 


ST..R12 


MCDF 


L1/R13 


2 


a 


G]2 



uB T"» RESTBRE REuS 
TIME 9F DAY RE3UEST 

MCOF SET FBR ALL SECTIONS 
2 F6R T!"E 8F DAY 
J9IK- Gl AT Gl2 

• 

« STSTE" 8N LINE REQUEST 

• SECTPN REQUESTS FBR TRAFFIC CBNTRBL 

*1 RES a TRAFFIC RESPBNSIvE REUJEST 

• 

L..R6 fBIT MBITIllaSN 

A1.R6 -1 

L..R13 "ASK.Ro 

STS.R13 *CDF MCDF SET FBR SECT18N SN 

LI.H12 3 

STfe.R12 DM8DE.R6 DESIRES «8DE FLAG 

B REST 09 Tfl RESTBRE REUS 

. TIME 8F DAY F9R TRAFFIC C8NTR9L SECTI8N 

12 RES TIME 9F CAY REQUEST 

L».R6 "BIT SN 

AI.R6 -1 

LX.R13 "ASK.R6 

STS.H1J MfCF MCDF SET FBR SECT19N SN 

LI.R12 2 

STB.R12 DM8DE.R6 DM B DE • 2 fBR TIME 9F 1AY 

B REST S8 T8 REST9RE REGS 

. manjAL PATTERN F8R TRAFFIC CBNTRBL SECTI9N 

Hj R£S MANUAL PATTERN R£DLFST 

Lw,*12 CPNI\»b SET PATTERN DUMBER 

SLS.R12 -16 

6A L »R8 CNV3 C8NVERT 

ST..R12 PN PATTERN \UMBER In PN 

AI.R12 «1 PN.l IN H12 

L.'.Re "BIT SN 

AI.Ro -1 SN.l IN R6 

SEARCH AVMPAT F8R PATTERN 

Ln.R7 NAVMPAT 

ST..R7 Rl» 

H31 AI.R7 -1 

CB«R12 AVMP»T,R7 

BE H 3 2 

BDR.R1* «31 

LI.R1* 1 ERR9R IF N8T 

ST. »«!". mtest SET MTEST N8N 7.ER8 

B REST 

h32 L..R12 Ff-SCF 

ti'-ll REST RETURN IF FLAG 8» 

L«.Ri3 "ASK.Rb SET 180E Change JES1RED Flag 

STS.R13 M CDF F8R SECTION SN 

L..R12 RN PATTERN NUMBER 

AI.R12 -1 

STb.Rl2 DPATNU1.R6 

LI.R12 1 

STo.RlJ C"0DE»R6 manual PATTERN • 1 

L..R12 RN 

SLS.R12 16 PN IN LEFT HALF 

AI.RiJ 2 2 F8 B MANUAL PATTERN IN RIGHT 

ST..R12 FmTChS 

b rest rest°re ^egs and exit 

• standby fbr traffic c8ntr8l secti9n 

h* *ES C 

L..R7 MBIT SN 

AI.R7 -1 

LI.R12 3 

STo.RU M6DES.R7 

STo.Rl2 UM8DE.R7 

MI,R7 NC.PD 

L I . R6 !i 

L..R13 CTLSC.R7 

STS.R13 STBYD.B6 

STS.R12 AUT9F.R6 RESET AUT9 FLAGS 

AI.R6 2 

AI.R7 1 

CI.R6 NC«D2 

BL »-6 

L..R6 MBIT SN 

AI.R6 -1 SN.1 

B REST 

• CBNTR9LLER F9R TRAFFIC C9NTRBL 

II RES e 8N LINE SELECTI8N 

L..R4 MBIT CN 

AI.R6 -1 

LB.R7 CNSEC.R6 

AI.R7 -1 

LB.Rl? *9DES.R7 

atl IlER EHR8R IF SECTI8N In STANDBY 



6 


338 


6 


309 


6 


315 


6 


311 


6 


312 


6 


313 


6 


31* 


6 


315 


6 


316 


6 


317 


6 


318 


6 


319 


6 


320 


6 


321 


6 


322 


6 


323 


6 


32* 


6 


325 


6 


326 


6 


327 


6 


328 


6 


329 


6 


33C 


6 


331 


6 


332 


6 


333 


6 


33* 


6 


335 


b 


336 


6 


337 


6 


338 


6 


339 


6 


3»C 


6 


3*1 


6 


3*2 


6 


3*3 


6 


3** 


4 


3*5 


6 


J*6 


6 


3*7 



6 


351 


6 


3^2 


6 


3b3 


6 


35* 


6 


355 


6 


356 


6 


357 


6 


358 


6 


359 


6 


360 


6 


361 


6 


362 


6 


363 


6 


36* 


6 


365 


6 


366 


6 


367 


6 


368 


6 


3S9 


6 


376 


6 


371 


b 


372 


6 


373 


6 


37* 


6 


375 


6 


376 


6 


377 


6 


378 


6 


3'9 


6 


3«5 


6 


381 


6 


382 


b 


383 


6 


38* 


6 


385 


6 


386 


6 


387 


6 


398 


6 


389 


6 


39? 


6 


391 


6 


39? 


6 


393 


6 


39* 


6 


395 


6 


396 


6 


397 


6 


398 


6 


399 


6 


»00 


6 


•51 


6 


»02 


6 


• 03 


6 


»D* 


6 


»05 


6 


»16 


6 


»-7 


6 


•08 


6 


*?9 


6 


•15 


6 


•11 


6 


•12 


6 


•13 



100 



IW.R13 


"BIT 


CN 


6 


♦ 1» 


6AL#R8 


BMH2 




6 


♦ 15 


L««*l2 


Rl3 




6 


•16 


ANC»R12 


CMALF.RJ 




6 


•17 


BNfZ 


her 


ERR8R IF MALFUNCTIBN FLAS IS 8FF 


6 


MS 


LS.R12 


H9LD.R6 




6 


♦ 19 


BNEZ 


HER 


ERR8R IF CBNTrBLlER IN STANDBY 


6 


♦20 


STS.R13 


AUT8F.R6 




6 


"21 


B 


REST 


RETURN 


6 


♦22 


:« li»R7 


1 




6 


♦ 23 


ST».R7 


"TEST 


MTEST N8\ ZER9 F6R FRRflR 


6 


»2<t 


B 


REST 


REST8RE REGISTERS AND EXIT 


6 

b 


♦ 25 

♦ 26 


RES 





STANDBY SELECTIBni 


6 


• 27 


L».R13 


"BIT 


CN 


6 


• 28 


b*L»HS 


9H&2 
STBVj.Rft 




6 


♦ 29 


STS/R13 


STANDBY DESIRED FLAS F9R CN 


6 


♦ 30 


LI«R12 







6 


♦ 31 


STS.R12 


AUTPF.R6 


RESET AUTB FLAS 


6 


♦ 32 


B 


REST 




6 
6 


♦ 33 

• 3* 


RES 





FAILURE REPAIR SELECTI9N 


6 


♦ 35 


L*»R13 


MBIT 


CN 


6 


♦ 36 


B*i_»R8 


umcj2 




6 


♦ 37 


L1.R12 


c 




6 


♦ 38 


STS.R12 


CMALF/6 


C8NTRBLLER MALFUNCTIBN FLAG 


6 


♦ 39 


B 


REST 




6 


♦ ♦0 


A. PHASE SfcEEN SELECTED 




6 


♦ ♦1 


WES 







6 


♦ ♦2 


L»,R13 


"B IT 


CN 


6 


♦ ♦3 


BAL.R8 


BMU2 




6 


♦ ♦♦ 


LI/R12 







6 


♦ •5 


LS,R12 


M8LD.R6 




6 


♦ ♦6 


BEZ 


I5X 


ERR8R, CN IN STANDBY 


6 


♦ ♦7 


LS,»12 


CICEF.R6 




6 


♦ ♦8 


BN[Z 


I5X 


ERR8R ,CN 8PERATING AS CIC 


& 


♦ ♦9 


LS.R12 


TRNSF/R6 




6 


♦ SO 


BNEZ 


1ST 


nAITt CN IN TRANSITI8N 


& 


♦ 31 


LS.R1S 


SEMSK/R6 




6 


♦ 52 


BEZ 


I5X 


ERRBR 


6 


♦ 53 


L*,R7 


MBIT 


CN 


6 


*S* 


A[,R7 


•1 




6 


♦ 55 


LB, "12 


"I#R7 




6 


♦ 56 


BNtZ 


I5T 


WAIT 


6 


♦ 57 


L«.,«12 


CPNIN*6 


BBTAI\ (GA) TEMP 


6 


♦ 58 


SLS.R12 


•16 


RIGHT ADJUST 


6 


♦ 59 


BAL»R8 


CNV3 


C9NVERT 


6 


♦ 60 


SLS»»12 


I 


SCALED Bl 


6 


♦61 


ST»,R12 


QATEM 




6 


♦ 62 


LaljRb 


MBIT 


CN 


6 


♦ 63 


AI/R6 


•1 




& 


»»* 


SLS/R6 


2 


R6.(CN«l)o* 


6 


♦ 65 


CB/R12 


SMABC/R6 


(GAI mini 


6 


♦ 66 


BL 


ISX 


ERR8R. (GA)TEMP LT (GA) MIN 


6 


♦ 67 


LB.R13 


SAABOR6 


GAB 


6 


♦ 68 


SW.R13 


GATEM 


SAB. ISA) TEMP 


6 


♦ 69 


ST»»R13 


5BTEM 


SAVE IN (GBI TEMP 


6 


♦70 


M»R6 


1 


R6.ICN.1 )•♦•! 


6 


• 71 


CB.R13 


GMABOR6 


(GBI MIN 


6 


♦ 72 


BL 


ISX 


£RR8Ri(QB) TEMP LT ( GB 1 MIN 


6 


♦ 73 


LB.R12 


SABCT.R6 




6 


♦ 7^ 


Sw,Rl3 


«12 


R13«8B».(GB)TEMP. SUMB 


6 


♦ 75 


L«.Rlt 


GATEM 




6 


♦ 76 


AI.R6 


-1 




6 


♦ 77 


LB.R12 


SA6CT«R6 




6 


♦ 78 


S»,Rl» 


N12 


RU«GA*.(GA)TEMP.SUMA 


6 


♦ 79 


SLS/R6 


"2 




6 


♦ 80 


STb»R1* 


GAwTP»R6 


STBRE GA* F8R C8NTRBLLER CN 


6 


• 81 


STB,«13 


GBWTP/R6 


ST8RE GBW F8R CBNTRBLLER CN 


6 


♦ 82 


L«.R13 


MBIT 




6 


♦ 83 


BAL>R8 


bm(j2 




6 


*8* 


STS/R13 


SPLCM.R6 


SET 8PERATBR SPLIT CHANGE FLAG 


6 


• 85 


B 


REST 




6 


♦ 86 


LI/R13 


1 


MTEST * F8R WAIT 


6 


♦ 87 


STw»R13 


MTEST 




6 


♦ 88 


B 


REST 


RESTBRE REGISTERS AND EXIT 


6 


♦ 89 


LI.R13 


•1 


MTEST - F8R ERR8R 


6 


♦ 90 


ST..R13 


MTEST 




6 


♦ 91 


8 


REST 


REST8RE REGISTERS AND EXIT 


6 


♦ 92 


MANUAL 8FFSET MflDIFICATISN 


SELECTED 


6 


♦ 93 


RES 





BFF SET SELECTI8N 


6 


*?♦ 


L-»»13 


"BIT 


CN 


6 


• 95 


Bal.RS 


0^S2 




6 


♦ 94 


LI.R12 


c 




6 


♦ 97 


LS.R12 


HBLDjRfc 




6 


♦ 96 


BEZ 


ISX 


ERR8R. CN IS IN STANDBY 


6 


♦ 99 


LS,R12 


TRNSF»R6 




& 


500 


B.EZ ■ 


I5Y 


*AIT. CN TRANSITI8\ 


6 


501 


LJ.R7 


MBIT 


CN 


6 


502 


AI.R7 


"1 




6 


503 


LB,R12 


MI.R7 




6 


50^ 


B'-EZ 


15* 


•AIT. CN ThANSITIBN 


6 


505 


L«,Rl2 


CPNIK»6 


8BTAIN 8FFSET 61 


6 


506 


SLS.R12 


•16 




6 


507 


BA L #R8 


CNV3 




6 


508 


SLS/R12 


CVCLC/R7 




6 


509 


LB.R6 




6 


510 


C«,Rl2 


<CL»R6 


CYCLE LENGTH 


6 


511 


BSE 


I5X 


ERR8R. BFFSET GE CYCLE LENGTH 


6 


512 


STB.R12 


«.R<BF/R7 


' STBRE -8R<INU 8FFSET 


6 


513 


BAL,«8 


OMG2 




6 


!|» 


STS«R13 


FSTCF.Hfc 




6 


515 


LW»11 


KCL.R6 


Rll • CYCLE LENGTH 


6 


516 


ST»,11 


MTS 


ST8«E CYCLE LENGTH 


6 


517 


SLS.ll 


•1 




6 


518 


STrf.ll 


MTS«1 


ST8RE P.S CYCLE LENGTH 


6 


519 



101 



PREPARE NEGATIVE VALUE F8R STeRAjF 



LI, 13 * 

RECBRD RELATIBNS KITH SuRR. CBNTR9 L iE'S 

A LB.o SU*C8N,7 

BEZ I6C 

LB, 11 ENTRY8FF,6 

Sl»ll «12 

INSURE DIFFERENCE IS *. 1.5 CYCLE LENGTH 

Cw.ll MTS*1 

BLE 16-1 

S««U MTS 

B I6A2 

»1 Ml. 11 -1 

Ci.ll MTS»1 

BLE »*2 

SW.il MTS 

Ml. 11 -1 

A2 CI. 11 

BGE 169 

MI. 11 -1 

AI.ll 60 

* STB, u 8FF3P.7 ST8RF VALUE 

AI.7 1 

BDR.ia I6A 

SET HLD8FF FLAG FBR THIS C6NTR8LLFR 

C L»«7 MBIT R7 • C8NTRBLLER N8. 

L»»l2 7 

SLS,12 -5 

ST., 12 2 R2 . W 9RD INDEX 

SLS.12 5 

Si, 7 12 M7 . BIT INDEX 

L",l3 MASK, 7 

STS,13 HLDBFF.2 
B REST 

DETJCTBR REJUESTS FBR TRAFFIC C6NTRBL 

Jl RES C 8N LINE 

DN 



DETFCTBR MALFJNCTI9N FLAG 

ERR8R, FLAG 8N 

C8MMUNICATIBNS m»lfunCTI8\ FLAG 

ERR8R, FLAG 8N 

CLEAR DETECT8R STANDBY FLAG 



RES 


C 




L*,R13 


MBIT 




dAL,R8 


dMGl 




LI,R12 







LS,Rl2 


DMALF, 


■R6 


BNS.Z 


JlX 




LS.R12 


CMMALi 


36 


BNtZ 


Jl* 




STS.R12 


DIS,6 




B 


REST 




L1.R12 


•1 




STi,R12 


MTEST 




B 


REST 




RES 


a 




Li,R13 


MBIT 




Ba l ,RS 


BM&l 




STS,R13 


0IS,R6 


B 


REST 




RES 


U 




L*,R13 


MBIT 




L1.R6 


MBIT 




AI.Ro 


-1 




L-,R12 


MASK 




A^U,R12 


TSTRT, 


^6 


A..RU 


RTC 




ST..R12 


TSTRTi 


R6 


BA L ,R8 


BmGI 




LI,R12 


o 




STS.R12 


DMALFi 


1R6 


B 


REST 




RES 


; 




L-.R13 


"BIT 




LW.R6 


MBIT 




AI.R6 


"1 




L*.R12 


MASK 




A..L.R12 


TSTRTi 


R6 


A»,R12 


RTC 




ST..H12 


TSTRT, 


R6 


BAL.R8 


BMGl 




LI.R12 







STS,R12 


CMMAt; 


R6 


B 


REST 





MTEST.-l 

REST8RE REGISTERS AND EXIT 



STANDBY F9R DETECT90 
l)N 



SET DETECTBR DN STANDBY FLAG 



FAILURE REPAIR 

ON 

DN 

DN.i 



FAILURE REPAIR, C8m«, TRAFFIC C. 
DN IN R13 



DN.I IN R6 

CLEAR C8MMLNICATIBNS Dn 



failure flag 



CIi_ SYSTEM RE1UESTS (ACTIVATE AMD RELEASE] 



RES 







LI,R6 


C 




LI.R1* 


NCiRD 




L*,R13 


C.ICSY, 


1R6 


ST..R13 


LICSF, 


-'6 


AI,R6 


2 




BDP»R1» 


*• J 




B 


REST 




RES 







LI.R12 


I 




LI,R6 







LI.Rl* 


NClRD 




ST<»«12 


LICSF, 


|»6 


AI.R6 


2 




UOi-.Rl* 


4-2 




B 


"EST 





ACTIVATE 

. SET CIC SELECTED FLAGS 
. FBR ALL CIC C8VTR9LLERS 
• IN SYSTEM 



RELEASE 

• CLEAR CIC SELECTED FLAGS 

• FBR ALL CIC CBnTRBLLERS 
. IN SYSTEM 



CIC SECTIBN REQUESTS - T„B CHBICFS 
RES ACTIVATE 



6 


520 


6 


521 


6 


522 


6 


523 


6 


52» 


6 


525 


6 


626 


6 


527 


6 


528 


t 


529 


6 


530 


6 


531 


6 


532 


6 


533 


6 


53* 


6 


5)5 


6 


536 


6 


537 


6 


538 


6 


539 


6 


5«0 


6 


5»1 


6 


5»? 


6 


5»3 


6 


bit* 


6 


5*5 


6 


5»6 


6 


5<*7 


6 


5»e 


6 


5*9 


6 


550 


6 


551 


6 


55? 


6 


553 


6 


55* 


6 


565 


6 


556 


6 


557 


6 


55? 


6 


559 


6 


560 


6 


561 


6 


562 


6 


563 


6 


bbk 


6 


565 


6 


566 


6 


567 


6 


568 


6 


569 


6 


570 


6 


571 


6 


57? 


6 


573 


6 


571, 


6 


575 


6 


576 


6 


577 


6 


578 


6 


579 


6 


580 


6 


581 


6 


58? 


6 


583 


6 


5X« 


6 


5R5 


6 


586 


6 


587 


6 


588 


6 


589 


6 


590 


6 


591 


6 


592 


6 


593 


6 


59* 


6 


5*5 


6 


596 


6 


597 


6 


698 


6 


599 


6 


600 


6 


601 


6 


602 


6 


603 


6 


6D» 


6 


605 


6 


606 


6 


607 


6 


608 


6 


609 


6 


610 


6 


611 


6 


612 


6 


613 


6 


61lt 


6 


615 


6 


616 


6 


617 


6 


618 


6 


619 


6 


620 


6 


621 


6 


622 


6 


623 


6 


62» 


6 


625 



102 



L".R7 KBIT SN 6 626 

M.R7 -1 . SET CIC SELECTED FLA3S 6 657 

11,^7 NC«RQ . FfiR ALL CIC C8NTR9LLERS 6 628 

LI.Rb . p SECTI8N SN 6 6'9 

LI.Rl* NC-RD 6 630 

L»,Rl3 LICSC#R7 6 631 

STS.R13 CICSF,R6 6 63? 

*I/R6 2 6 633 

AI.R7 1 6 (,3, 

BDR»«.1» »•« 6 635 

B REST 6 636 

6 637 

RES RELEASE 6 638 

L-V.R7 "BIT SN 6 639 

*I»R7 -1 6 6*0 

"I.»7 MC«RD . CLEAR CIC SELECTED FlAUS 6 641 

LI.«6 . FPR ALL CIC C8NTR8LLERS 6 64? 

LI,Rl4 NCxRO . ]N SECTI8N SN 6 6*3 

LI.R12 6 644 

L".R13 CICSC.R7 6 6*5 

STS.R12 CICSF.R6 CLFAR CICSFSITS 6 646 

AI.R6 2 6 6»7 

AI,R7 1 6 648 

BDrt'Rl* »•» 6 649 

8 REST 6 650 

6 651 

CIC C8NTR8LLER REQUEST 6 652 

6 653 

«ES Z ACTIVATE 6 65* 

L»»R13 "BIT CN 6 655 

BAl«R8 BMG2 6 656 

LI.R12 & 6 657 

LS.R12 C1CSY.R6 6 658 

BEZ MX ERR8R-CN NBT CIC CBNTR-fLLFR 6 659 

STS.R13 CJCSF»R6 SET CIC SELECTED FLAG F8R CN 6 66? 

B REST 6 661 

LI.Rl? -1 SET NE FBR ERRBR 6 66? 

ST»»R1? MTEST 6 663 

t) REST REST9RE REGISTERS ANO EXIT 6 664 

Release cic cb^trbller request 6 66s 

RES RELEASE 6 666 

L*»R13 1BIT CN 6 667 

BAL/R8 BMG2 6 668 

LI.R12 r 6 669 

STS.R12 LICSF,R6 CLEA" CIC SELECTED FLAj F«R CN 6 670 

B >«EST REST8SE REOISTERS AND EXIT 6 671 

6 67? 

FLbl DATA, TRAFFIC C8NTR8L. MAP C8NTSBL 6 673 

6 67* 

RES DETERMINE FLBw DaTa BCCUPaNCY 6 675 

GBT 16»1 BCCUPANCY 6 676 

Qtti.1 **3 6 677 

LI»R7 Cl F8R 8CCUPANCY 6 67B 

B C*A 6 679 

GBT 17.1 b *l° 

BNEZ **3 6 HI 

LI,R7 1 1 F8R VBLUMN 6 68? 

B C»A 6 683 

GBT 18/1 f *** 

BNiZ *«3 fc °' 5 

LI,R7 3 3 FBR QUEUE 6 686 

6 687 



B C*A 



GBT 19»1 6 bS t 

BuEZ »*3 * 689 

LI,R7 * » F8° STUBS 6 690 



B C*A 



REST 



RES 



REST 



B REST 



Z RES 

REST 



LCI 
LM 



yE»UG RES t 



•R15 



LI.Rl -1 



103 



6 691 



SoT 20M * HI 

BmeZ **3 6 llf 

LI.R7 2 2 FBR SPEED 6 694 

B C4A 6 695 

GBT 21»1 6 f'S 

BNfcZ C4b NB PARAMETER SELECTED 6 697 

L1.R7 5 5 FBR DELAY 6 698 

RES 6 (>< ' 9 

ST...R7 Rg SAVE PARAMETER CBDE IN R8 6 700 

M1,R7 10 INITIALIZE THREShBLD 6 701 

LI.R6 '10 INDEX FBR PARAMETER 6 702 

L*.R13 CPNIn INDEX F8H THRESHBLD 6 703 

LI.R12 <> III 

LS.R12 MASK«3?,R6 * 7 °= 

BEZ *♦* 6 * 

AI.R7 1 * "7 

8IR.R6 »'3 b /0B 

B C*B NB THRESHBLD SELECTED 6 709 

ST..R8 PARC8D SET PARAMETER CBOE 6 710 

LH.R12 ThRvAL.R7 * 71t 

ST*»R12 ThRSh SET THRESHBLD VALUE 6 71? 



6 713 



LI.R12 -1 -1 FBR ERRBR 6 714 

ST.-.R12 MTEST SET "TEST BR .1 6 715 

B REST GB T6 REST8RE REUS 6 '16 



6 717 

6 718 



PBT 3 TURN BN SYSTEM ERRBR 6 719 

72D 



RES C * 721 

PBT b TURN 8N "AIT 6 72? 



723 
724 



PBT 4 TURN BN DISPLAY ERRBR 6 725 

RES C RESTORE REGS AND EXIT 6 726 

6 7?7 

SREGS * 7 ! B 



6 729 
730 



TURN BN "SUB ERRBR FLAG 6 731 



6 73? 





STh,Rl 


MSER 






6 


733 




B 


west 






6 


73» 


• 










6 


735 


SREGS 


RES 









6 


736 




DAT* 


0,00,0,0,0,00 


REGISTERS 0-7 




6 


737 




DATA 


0,0, CO, 0,0, 0<0 


REGISTERS 8-15 




6 


738 


ID 


"ES 









6 


739 




b 


81 


TRAFFIC RESPONSIVE. SYSTEM 


6 


7*0 




B 


e? 


TIME 8F DAY 




6 


7*1 




B 


DEBUG 


MC8CE «3 0P>! 1 r£D 




6 


7»2 




B 


o» 


STANDBY 




6 


7*3 




B 


H l 


TRAFFIC RESPONSIVE. SECTI8N 


6 


7»<i 




B 


«2 


TIME 3F DAY 




6 


7»5 




B 


"3 


MANUAL PATTERN 




6 


7»6 




B 


M <* 


STANDBY 




6 


7*7 




b 


11 


BN L^E-C8NTR8LLER 




6 


7»8 




B 


12 


STANDBY 




6 


7»9 




b 


U 


FAILURE REPAIR 




6 


750 




B 


1=5 


A PHASE GREEN 




6 


751 




B 


16 


BFF SET 




6 


752 




B 


01 


BN LINE UETECT8R 






753 




B 


J? 


STANDBY 






75» 




B 


Jo 


FAILURE REPAIR. OETECTBR 






755 




B 


«2 


FAILURE REPAIR. CBMmuNICATIBNS 




756 




B 


tl 


ACTIVATE-CIC-SYSTEM 






757 




B 


L2 


RELEASE 






758 




B 


"1 


ACTIVATE'CIC-SECTIBN 






759 




b 


MJ 


RELEASE 






760 




B 


^1 


ACTIvATE'CIC-CONTRBLLER 






761 




B 


\2 


RELEASE 






762 




B 


C* 








763 




b 


DfBJG 


MC8DE • S» 8MITTED 






76» 




B 


Y 


TURN 8N -AIT 






765 




B 


2 


DISPLAY ERR8R 
SYSTEM ERR8R 






766 




B 


X 






767 


• 












76S 


BMlil 


RES 

AI.R13 

8T»«"RJ3 




-1 

6 








769 
770 
771 




SLS,R6 


•5 


INDEX F8R NBN. INTERLEAVES (if'iu...v 




77? 




B 


»+5 








773 


BM.S8 


RES 

AI.R13 
ST»,R13 
SLS«H6 




• 1 

6 
■5 








77» 
775 
776 
777 




SL3.H6 


1 


INDEX F8R INTERLEAVES ARRAY 




778 




AND/R13 


•X'OOOOOOIF' 


88TAIN BIT MASK 






779 




ST-»R13 


7 








780 




L*,R13 


MASK.R7 








781 




B 


• R8 


EXIT 






782 


• cbnvert 


BCD T8 BINARY SUBR8UTINE 






783 




REFERENCED BY 








78» 




BAl,«8 


CNV3 F8R 3-DIGIT 


CBNvERSIBN 






785 




BA L #R8 


CNV* F8R O-DIGIT 


CBNvERSI8N 




6 


786 


AT 


ENTfcY, 3 8R It INVERTED BCP DIGITS ARE IN "12 (RIGHT JJSTIFIEO) 


6 


797 


• AT 


EXIT. Rl2» 


BINARY NUMBER 






6 


788 




Rl3 


IS 0ESTR8YED 






6 
6 


789 
79r> 


CNVJ 


RES 





ENTRANCE T8 CSNVFRT 3 DI 


GITS 


6 


791 




E8n»R12 


■X'OOCOOFFF' 


BBTAIN 3 BCD DIGITS 




6 


792 




AnD«K12 


•X'OOOOOFFF' 


CLE A» 




6 


793 




B 


6*3 






6 


79<t 


CNV» 


RES 





ENTRANCE FBR » DIGITS 




6 


795 




E8R/R12 


•X'OOOOFFFF' 


BBTAIN k BCD DIGITS 




6 


796 




A\L»R12 


•X'OuOOFFFF' 


CLEAR 




6 


797 




SLS,R12 


4 


• C8MPUTE N. 10000N3 




6 


798 




LH,R13 


12 


• ♦ 100«N? 




6 


799 




"I»»11 


10 


• ♦ 10«N1 




6 


BOO 




ANu»R12 


•X'OOOOFFFFi 


• ♦ N8 




6 


801 




SLS»R12 


1 






6 


802 




AH,R13 
MI.R13 


1? 
10 






6 


803 




6 


SO* 




A:JD»R12 


■X'OOOOFFFF " 






6 


805 




SLS,R12 


H 






6 


806 




An,R13 


12 






6 


807 




MI.R13 


13 






6 


808 




AN1.»R12 


•X'OOOOFFFF' 






6 


809 




SLS»R12 


•12 






6 


810 




A/./RU 


13 






6 


811 




b 


• R8 


EXIT 




6 

6 


»12 
813 


'. TIK£ 


subi<9utine 


- RtFFRENCED BY 






6 


81k 




BAi.»R8 


TIME 






6 
6 


815 
816 




*T EXIT/ 


R12 . HHMM (EBCDIC) 


AND R13 • DESTRBYED 




6 
6 


817 

818 


TIME 


RES 









6 


819 




C*Ll»S 


TIMFPT 


BBTAIN RBM TIME 




6 


820 




L*,R12 


TIMBuF 


HH»" 




6 


821 




L«,Rl3 


TIMBjF*! 


HHXMMXXX 




6 


822 




SLo»Ri2 


•8 


OMHXMMXX 




6 


823 




SLS/R12 


•8 


OOHHMMXX 




6 


821 




SLD,R12 


16 


HHplXXOO 




6 


825 




B 


• R8 


EXIT 




6 


826 


TI"FPT 


PAuE 


X'10'«M<TIMBUr> 


FPt FBR RBM TIME 




6 
6 


B27 
82S 


• 




L8CAL VARIABLES 






6 


829 


PN 


DATA 


Tj 


PATTERN NUMBER 




6 


830 


• 


••• map 


TmREShBLD VALUES 






6 


831 


ThRVAl 


RES 









6 


832 




DATA, 2 


5>10«20»30»50«75»75 


,75,75,75 


ecc 


6 


833 




DATA, 2 


2on,300»»00'600,800 


, 1000, 1000' 1000, 1 000, 1 00,1 


VBL 


6 


831 




DATA, 2 


5, 10,15,20, 30»»0»»0«»0,'tO»'tO SPD 




6 


• 35 




DATA.2 


3, 6< 9, 1 2, 12, 12M 2' 12, 12,12 


QUE 


6 


836 




DATA, 2 


3,6,9,12,12, 12, 12, 12, 12, 12 


STP 


6 


837 




DATA, 2 

End 


10»20»*0»60»8D«12U» 


120» 120< 120,120 


DEL 


6 
6 


838 
839 



104 



2.6.55 SUBROUTINE MSUB2 



"SU3^ 



8 1 

DSl.CT * I 

R£S » h-.buf « J 

OAT* j CRTCL 8 » 

EMU 8 * 



105 



2.6.56 SUBROUTINE SRC FT 



rjjtIme: srcft 

t • SRCFT 

SJ'^eoTJJE SRCFTI INDEX, I ^T .) 

Sui»9 : JT''E T8 StA^CH FBR FAILURE TABLE ENTRY TB SE JPOATFD 
r 

if CALlI 'JG ARGl-ENTS 

C INJE* • ImDE* 8F FAIL TABLE ENTBY 

C I3TN ■ E«ECUTE NEXT STATEMENT AFTER CALL (FRtfB= RETURN) 

C ■ 1 Ju'P 2 STATEMENTS AFTER C*LL AmQ EG!N EXECu T IBN 

C FBR NBRMAL RETURN 

INTEGER FLTAB 

INTEGER F1TTY , FMTNJ » F»1TCn 

C9"iMG-< /HASUS/ FMTTY , FMTNd . FlTO 

C'-imBn /SL<25/ AHCCU38), C-AKJ7), C"TAB(25g>. 

• 0TTA6(258) , OISI 17 ) , DMALF(17) , DiBDE » 

• FLTASHOO) , HRF , MBDES / NAI , 

• N8FAL, SBA*(69>* SECFC(*)« SCDFCCt). V8LI138) 
1U CBNTlNuE 

I m.) • ( lNDfc.x-1 1.2 + 2 

CALL HALF(FLTAt), INU/MHB) 

!F(nU'1d.nE.F^TMU) GB T8 20 

INJ . I INDEX. 1 )•* ♦ a 

CALL jETc)Y(FLTAB. I\D. ITYPE) 

IF( ITYPE.E.'FMTTY) U8 TB 30 
2J CBNTIMuE 

INDEX • INDEX . * 

IF( INDEX. GE'C) GB T8 10 
C 

C SET ERR8« R£TUR\ 
C 

IRTN . o 

RETURN 
30 CBNTINuE 

C SET NJRI-JAL RETURN 

C 

IRTN . 1 

RETURN 

EN J 



•2 


1 


»2 


2 


»2 


3 


«2 


A 


»2 


5 


»2 


6 


»2 


7 


»2 


S 


• 2 


9 


»2 


10 


»2 


11 


*2 


12 


•2 


13 


*2 


1» 


»2 


15 


»2 


16 


»2 


17 


»2 


18 


»2 


19 


»2 


?0 


»2 


21 


• 2 


2? 


»2 


?3 


»2 


2* 


»2 


25 


»2 


26 


»2 


27 


»2 


28 


»2 


29 


»2 


35 


"2 


31 


»2 


3? 


•2 


33 


"2 


34 


♦2 


35 


»2 


36 


»2 


37 


»2 


38 


»2 


39 


»2 


»0 



106 



2.6.57 ROUTINE O 



RJJTInE! RTNO 

z • «tnb 

Sj^RSutInE «TN= • , 
C .. T*J PjhP^SE Vr ROUTINE 9 IS T9 SET ».P«*SE GREEN I\DIC»TI9N BITS 
C •• [N THg A9G ARRAY, AND START BF A. PHASE 3REEN BITS IN TMF STiRTA 
C *• ARRAY, P3R EAC'< C9\T , R9LLER> 
C «* jJJJO.. I\Q£X INT5 BIT IARRAY SF J4CH «BRO, UNPACKS 8 BITS AT A TIME. 

Ce^MSN /BL~ N VuAl ( 128)»GA2U2S) 

CS^Bn /dYTL2/JCBN, JL2.KL2. 1 OECR. *SL? ( 5 j) 

SIRENS 1 3 « 3A1(32)»STRTA(3£>»A9J(321 

C9""8N /PC9"/ GAI.STRTA.A9G. I 

INTEGER GAI.GA1.GA2..A8U.STRTA 

OATA IaLTB/O/ 

IL2»G 

I"3 

DS 353 KL2.1.97.32 

I «■ I +1 
C •• uN^aCk ABG.GAI.GA1, AND GA2 BIT ARRAYS 
c .. STARTING AT 1.9. 17. 25. ETC. 
122 CALL UlvPB 

33 3»0 JL2«1<32 

IL2»IL2*1 

c •• cec< » h Ich alternate buffer in use. set g*i sr g*? tb cshplement 

C •* 9P GAI, SINCE MUX SUPPLIES UATA IN CBmPLEMENT F8RM. 
IP( IALTB.Ei-ll G8 TB 12* 
0*1 (IL2)"-G»KJL2)»1 
GB TB 126 
12» GA2(lLi )«-o»I( JL2)*1 
12b STRTA(.jL2).0 
IR12«0 
IRlO'O 
C •* IS10«GA1.ANU.SA? 

IPIGAK IL2)-EQM.AND.GA2( IL2] .EQ.l) IR13.1 
C •• STKTA.iABG-EBR.IRlul-Af-D.IXlD 

IF( IRlO.EO.l.AND.ABGI JL2I.EQ.0) STRTAt JL2I«1 
C •• A9U.CABG-ANU. (GA1.0R.GA2) I.BR.IR10) 

IP ( (SAl I IL2).E0.1.6R.GA2(IL?).E0.1).AN0.ABG( JL21.6.3.1 I I R 1 ?» 1 
IF( IR12»EQil«OR.IRlO.EQ«l) IPl2»l 
A9GC JLi?)»IR12 
C •• PACK STRTA AND ABG BIT ARRAYS 
310 CBNTINuE 
, CALL PCK8 
3VJ CSNTI'NUE 
C •• SET SkITCH F9R ALTERNATING GA1 AND Ua? BUFFE*. 
IaLTB..IALTB*1 
RETURN 
ENU 



9 


1 


9 


? 


9 


3 


9 


• » 


9 


5 


9 


6 


9 


7 


9 


8 


9 


9 


9 


10 


9 


11 


9 


12 


9 


13 


9 


1* 


9 


15 


9 


16 


9 


17 


9 


IS 


9 


19 


9 


20 


9 


21 


9 


22 


9 


23 


9 


24 


9 


25 


9 


26 


9 


27 


9 


28 


9 


29 


9 


30 


9 


31 


9 


32 


9 


33 


9 


3* 


9 


35 


9 


36 


9 


37 


9 


38 


9 


39 


9 


•0 


9 


"1 


9 


"2 


9 


»3 


9 


»» 


9 


»5 



107 



2.6.58 SUBROUTINE PCKO 



«UTlvEi PC<* 



PCK9 
SJ*R9ul 
C91K9N 

• *LTC(l 
C9"ll BM/ 

. 1»RR(B 
» mncis 

• ^INCT 
i.3JIV»L 
INTEGER 
DJ-iENS! 
C91M8N 
INTEGER 
CALL Pi 
CALL P«. 
RETURN 
EN'J 



I JE ►'CKB 

/BL<7 /ASG!(16) » INTHH3H , INT2K31) , 

7)<<3PH!(31)»STUPF»mOl(311 

8LK28/*jR(l»),PI»(6),BC(2)»HSS(lt)/»PBMl ( 1» ) , CPN9U, CPN9T, 

♦ 0) / H'1»P(ai < JCNT i KCNT > 

» xHssr » clsck » wHjsr , 

, TAB(3) > N9NBI8) 
ENCE (STRTI,A8Gl<2>) 

A9ttI,G»II,STSTI 
9N hat (3?)»STRTA(3SI»A8U( J?l 

/PCS"/ GAI.STRTA/A9G, I 

GAI»GA1.GA2»A8G»ST«T» 
BIT(STRT]»I .STRTA) 
BIT<A9GJ,I <A9G) 



1 

3 

« 
5 

6 

7 
8 
9 
10 
11 
1? 
13 
1* 
15 
16 
17 



108 



2.6.59 SUBROUTINE UNPO 



SjflRSjTlME '.APU 

;3^M8M /HL<7 /#8UI(16) » INTHIUi, , INT2K31) . 

. <CTC( !7>,OPh1(J1)»STUPF»".CJL(31) 

ceiM9M/BLna»/*oR(i»),pi»(6i,BC«i2)»Hse(i'»)»»P8"ii (1»),cp v .8u»cp>"9t, 

. i»RH(o<0) » H1API2] < JCNT » KCMT , 

• 1MC15 , ^MSof t CLBCK ( fclMINF , 

• "U\CT > TAB(3> j N9NB(8) 
E3UIVA..E «Ct (G*II»AG«(8) 1/ |STRTI<ASSI(2) I 
I^TEtiEt- »9GI.6»H,STRTI 

DfE^SlS -i bA!(3SliST»T4(3?)»A8li(3?) 

CS'WN /PCS' 1 / CiAI.STRTA, A8i» T 

IMECE, iAI»(,Al,&A?/A9b.STHTA 
CALL U-.BIT(JA!I.l ,iAl) 

call u^bitiaujI, i ,Aeai 

RETURN 

E\a 



10 


1 


10 


2 


10 


3 


10 


A 


10 


s 


10 


6 


10 


7 


10 


a 


10 


9 


10 


10 


10 


11 


10 


1? 


10 


13 


10 


1» 


10 


15 


10 


16 


10 


17 



109 



2.6.60 ROUTINE P 



■ITNP 




3JBRBUTIME *TNP 




C9 S '»8\ /Bl<6 / F.1C > fMAR< , 


HASTI9) 


l-'AST , JKAST | KMAST , 


EnAST 


H-iAST i »i J AST < 3HAST < 


IMAST 


SPACE . "P8KY 




CB^MHI^ /0L<7 /A»JI(l6) < IMTHK31) , 


INT2H31) 


<CTC( l7)#«i»B| (3) ),STuPF,-.U L (31 ) 




CBIMBN /oL*1»/ CLE'.Cj « CTLNU , 


C'-LNG 


DUMY| , DU1Y2, 




CNTLK372). ENTFLI5). «CL(l7>< KCTF(i7> 




<CSF(l7)» NMVAII31I, S«SKI(R)» 




V*IM(123> i LN<PT(6»! 




CS^S J /BL<17/ ADVmI(B) » CICBI(B) . 


CAB6I (8) 


I«DPI(«) i C^Tl»(12*) • CNTMM ' 


IL2 


INT"iI(31) . INTlI(31) < INTBI(32> « 


KL1 


5r&TIi33). TIIEI(JJ), QvSKI(69) 




C3-110-. /8L«1S/ CICTK8I » CTBDIIS) 


STBDI (8) 


C3Mi(62i , CURBI(31) > CYCLI(31) » 


EMM (»96l 


LN6PH31) < GAAoKlStl » r,A»TI(31l / 


SBWT1 (31 ) 


oi.ABI(12») , GKABH12*! . 3UABK124I , 


INTOI 1*96) 



. SA8CI(12») » TK1K31) /kPK8I(31) 

C91M8N /BL<13/ CC2U29). D*A!L(69)j D9F(17I< 
. "I](3ll < RAJ6CI258) « RA*SP(25s) «BTC t 

. TST«T(5l6) 
CBHM8 ./BITl2/6ITAR(6»0) 

DME^S IB-J aDvSH(3pi,aBo(32]/AP8(32I.AUT8F(32I,CICBP(3?I/ 
1CICEF( 32), ClCTF( 32) »CT8DF( 32), CMAlF< 32), CPABGl 32), fSTCF( 32), 
£H9LD(32), IAUv/P(32), INT1S( 32) ,SEMSK<3g) »SPLCh(32),STBYD(38) i 
3STXTA( j2),TXNSF (32),CICSF(32> 

EQUIVALENCE 
l(A ; Jv^M,iITA«( ]I),(A8q ,blTAR| 33))»(APB ,BlTAR| 65)1/ 
SI AJT8F,8IT4H( 37))/ 

1 (CICBP,8ITA*( 129) ), (CICEF,BITA«(161 I 1/ (CICSF,B1TAR(193) ), 
1 |CICTF,31TA«(??5> ), (CTB3F,bITAH(2S7) I, I CMALF, Bl TAR ( 289 ) ), 
3(CPA8 U jBlTAW(3ii)),(FSTCFjBlTA«(353)i»(HeLD ,8ITAR,385]|, 
M I«DVP,8lTAK( 417 ) ), ( IMiS,3lTAR(»*91 )> (SEMS«, Bl TAR ( » 91 ) ), 
5<SPLCH,8ITAH(5l3) ), (S1HTA,olTAH(5*b) I, (STBYD,8ITAH[577I ], 
6(THNSF,aITAK(609>) 
C9HMBN /8Y7La/ICBN, JL2»<L2< IDECR, WSL? ( S3 1 

I^TEQE" ADvNH,A9o,aP8,AUTBF , ePSIF,BTR*F,CtCBP,CICEF,CICSF, 
1CICTF, l TBDF»ChALF,cPA8G,FSTlf,GAI,hSlD,SEhSK,SPLCH,STBYD, 
2STRTA,TRNSF 

INTEGE* A*ePM / C8M=s ) CNTLN,CYCLC/E.MlNT.l)AABC»GA.JTP, 3B„TP, 
luLABC,i , 1ABC»LDSET < l5CIC-T J Qaa,aORR,i3VBK,R«R,STBT1,SA3CTjTE«CT < T1 M E8, 
?T<~» V8l, V8T 

INTEGER AMBI"IjCBNTI»CNTl.I,tVCLl/EMNI,GAABI»UA«TI<liBl,Tl»'jUAB!» 
iGLABI.u^ABI.QCIClfGtiCI.OaRSl.QvBKI.HRRIjSTBTI.SABCI.TrKCIjTIMEIj 
2TOI, rf8LI«VBTI 
I VTEGE-< CLENG,C\TDR,E m AST,ST'jPF,ENTFl 
n'EUE-, CU«BF,ENBFF,VRlNT,»*<9F 

EQUIVALENCE <wSl_2( 1 ),C6\TB), ( wSL2 ( 2 ) , INTR? | , ( „SL2 ( 3 ) . INTRH ) , 
1 (*SL2(»)» I*TSIL>» (WSL2(5), IM\«|j (WSL2<6>, INTBU), 
2l*SL2(7)»TIlEB), ( WSL2 (8 ) , I K9 | , ( wSL2 ( 9 ) , 1 R1C ) 
C .. The PukPBSE 8F THIS R8UTINE IS T6 SCAN T«E CB"PLEHENT IF 
C •• CBNTRBlLERS »HICH HAVE BEEN FLAGGED AS BUT BF SYNC wiT-t C8MPUTER 
C •• IF BUT BF SYNC BT 9N£ INTERVAL A C8RRECTI9N IS ATTEMPTED BTHfRwISE 12 
C •• The CBnTRBLLER IS o«BPPEO 

JL2.1 
C •• F8*M At,U.A\J.CPA8G.AN0.H3LU.A'lO.SE M Sk. IF EQUAL TJ ZE*B N8THING 
C •• T9 DB. 9THE«»!SE C8^TR8LLE fc| IS BUT BF SYNC 
33U ►L?»JL< : *ICe , < 

in (As ( JL2)*CPABG( jl2) ).E!««1 •*N0iH8LB(JL2)»EQ-l'AND«SEMSKIJLB)i 
1EJ-1) u» T? 331 
uS Tb sb. 
331 IF (CPABil JL?)tE0.1 I GB Te » 3 o 

G8 TB BBU 
38J TI-EB.j 
I^TBu. • 
Hi CALL PCKP1 
c .. „4ve 6 C8NT«3LLE«S bEEN PROCESSED 
33* IF( JL2.LT. 32) GB T6 33b 

IF (CLt-NG ,'JT. 01 MAST(KMAST) • 1 
RETUR.n 
335 CBMINuE 
jL2"JL2+1 
G8 TB 330 
»00 CALL Ul.PPl 
C •• INCREMENT TI"E8UT 
TI^EB«TI 1E8MDECR 
C •• CHECK |F TPF6UT HAS REACHED ^ SEC8NDS. 
IF (TIi-E8. L '.3) GB T9 332 
IF (IMTBJ.NEtOI GB TB 610 
IF (TI.E8.GT.6I GB T9 b20 
GB T8 332 
520 TIHE8.U 
I\TBU«] 
lAJVPl jL2).1 
G8 TB 332 
610 C"1AlF( jL2).1 
TRNSF( o L2)»0 
CALL P<BYT(lll,KL2.0) 
CICSF(jL2) ■ Ci 
CICEF( jL2)»0 
CICTF| u L2) ■ 
C •• SE' ENTRY FLAG F8R UPDATE SUBR8UTINE 
ENIFLI 1 )«0 
HBLDI JL21.0 
C •• SET C8.-TR8LLER NUHbER IN FAILURE TaBlF AND INCRE«EvT CLENG 



12 


1 


12 


2 


12 


3 


12 


4 


12 


5 


12 


6 


12 


7 


12 


8 


12 


9 


12 


10 


12 


11 


12 


12 


12 


13 


12 


U 


12 


15 


12 


16 


12 


17 


12 


18 


12 


19 


12 


20 


12 


21 


12 


22 


12 


23 


12 


2* 


12 


25 


12 


26 


12 


27 


12 


28 


12 


29 


12 


30 


12 


31 


12 


32 


12 


33 


12 


3* 


12 


35 


12 


36 


12 


37 


12 


38 


12 


39 


12 


"0 


12 


"1 


12 


»2 


12 


»3 


12 


Oil 


12 


*5 


12 


06 


12 


«7 


12 


48 


12 


19 


12 


50 


12 


51 


12 


52 


12 


53 


12 


5* 


12 


55 


12 


56 


12 


57 


12 


58 


12 


59 


12 


60 


12 


61 


12 


6? 


12 


">3 


12 


6k 


12 


65 


12 


66 


12 


67 


12 


68 


12 


69 


12 


70 


12 


71 


12 


72 


12 


73 


12 


7» 


12 


75 


12 


76 


12 


77 


12 


78 


12 


79 


12 


80 


12 


81 


12 


82 


12 


83 


12 


84 


12 


85 


12 


86 


12 


87 


12 


88 


12 


89 


12 


90 


12 


91 


12 


92 


12 


93 


12 


9» 


12 


95 


12 


96 


12 


97 


12 


98 


12 


99 



110 



C9NTB.IC8N*JL2 

CLENG»CLENO*l 

CAUL Pk*^ <C8NT1,CLENS»C8MB) 

Q8 T8 390 
• • U* p AC« INTE«V2« INTiUIL/INTEHvh 
850 C»LL UNPP2 

IF (INTR2>LE»nTNL> i 8 Te "0 

&8 T8 350 
990 IP (INTSH.UE.IMTNl.) G8 T8 610 

ADVNHI JL2>»1 

&8 T8 333 

ENO 



12 


100 


12 


101 


12 


102 


12 


103 


12 


10* 


12 


105 


12 


106 


12 


107 


12 


108 


12 


109 


12 


110 


12 


111 



111 



2.6.61 SUBROUTINE PC KP1 



r9utIne: pc< b i 



• "CKPl 

SUSRBUTI'mE "CkP] 

C81M9N /SL<W/ AOVvllS) » CICSK8) . C»BO!(3) . 

• I*DPI (8) l CNT0R<18») i CNTNM , IL? , 

• lNtMI(311 , JNTtlOl) • !NT8I(3£| , KL1 » 
. STBTI(32), Tirn<32)< gvf»<I<69> 

ISTEQEK AM3Fl,l.9\TI»C , »Tl.I»i.YCUjE*'IM!,GAABl#lj»jTI # , ) B,,TI# 3UAPI, 
lL.L«BI,o^Al!I»3ClCI, J«3I.03HHI,QV8K!,«aRI,STBTl,SAoCI.TC.Ct.TT"EI« 
?TKlI,VSl.I.v9Tl ' 

C91M8N /3YTl?/1c8m» JL2'KL2« tDEC«» WSL? ( 50 I 

EiJJ I VALENCE (*SL2(1 l.CONTS). , wSL2(c). I'lTR?), (*SL2(3). !^T-}W>, 
1 («SLeU)«INTML!» (wsLE(S). I^Tsii, (WSL?(6), iNTBUli 
B(«SL2(7|.T1"EB) 

I^TEGE* CBvTd,T!.1E0 

CALL P»3YT(TI>lt.I#KL2,TIiEB! 

CALL PivdYTl INT3NKL2* INT8U) 

SETUHN 

ENJ 



15 


1 


15 


? 


15 


3 


15 


« 


15 


5 


15 


6 


15 


7 


IS 


a 


15 


9 


15 


1? 


15 


11 


15 


IS 


15 


13 


15 


I* 


15 


15 


15 


16 


15 


17 


15 


IB 



112 



2.6.62 SUBROUTINE UN PP1 



ReuTI if: u\p«i 



• JNPPl 

SJ*R8UTI JE UMPP] 

"">M8n /BL<J7/ «0VM(8) , riCBl(g) . C»98I(g) , 

• MCP!(8| , CNTQRlU*) , CNTNW , j L? 

• SrBT| l32 ), t]m E I( 3S ) # SVSKI(69) ' " 

INJ|6EW * f, »"U'-BNTI,CMTLI.L*CLI,ENINl.a*Al?I,C* < TI. J 8,.T! -MAPI 

CSPMBN /9VT1.2/1CBM, JL?.<L?. IDE", « S L? ( 50 ) 

ISTEIjE'' Ce>TB,'T!MEB 

C»LL JParT(T[r,r|, KL2 , TI ^ ES , 

CALL UPdVT(I\T0I»KLS, INT8U) 
i\J 



13 


1 


13 


? 


13 


3 


13 


» 


13 


5 


13 


6 


13 


7 


13 


s 


13 


9 


13 


19 


13 


U 


13 


1? 


13 


13 


13 


1* 


13 


15 


13 


16 


13 


17 


13 


It 



113 



2.6.63 SUBROUTINE UN PP2 



ROUTINE I J^ B 2 



3jBK9uT!-E J^Bf? 

CS>h9». /Bl.<7 /*S3!(16) i IMTHjon 

• <CTC( i7)#*iPiI (3i uSTtPf ,n; l oi ) 

:e v "'tfN /oi<n/ ov-im » cicsksi 

• !»0°!(8) , C»T,>I12»| « C-.TS- 
1"-T'I<31) » !'-Twll31l « ISfSlljJi 



• STbTli33), Tl-flij?), ;/9<lis9 

i it »b i , ->r*e i . 5c i c 1 1 :c j i . '- j'-< i , ivs< i , hsk 

2T<"If*6tI»VBTl 
CS^HOs /B*T|.2/lCe.l.Jl.2"<LS»l-)ECH/«SL?< 
EiJ!*»,_E-.CE («SL2(i )»CBNTBI»(«SL2(e).l 

1 1«SLJ(»). 1ST -.(.), [oSLElSli I NTs-), (.Sl?i 

?i»SLS(7i»Ti-rei 

C»I.L JHirT(isT2|,i< L 5,|\T^?i 
C»wL Jr-B»t( I\Tt!»i<u8l ]ST\LI 
C»Ll >HYT(lNT'<I,K k .8, JsT^M) 

ENJ 



. C»S 

» <L1 

j»»BI. 
I/STOT 

6I.INT 



21131) 



I.Sa-C 



,B-'I 
I.TE" 



«3'-» D I» 



l.S>L?(i 

5,1. 



1 
? 

3 

It 
5 

6 

7 

s 

9 

i: 
n 
:? 
n 
i» 



114 



2.6.64 ROUTINE Q 



SJBH8UTI ■it «TN. 








IME&E 


< »CM,0" 


AST.STBYO 






C9"W9\ 


/BL«6 / 


Fm C 


FMARK 


1ASTO) , 


. 1-iAST 




JiAST 


KMASr 


E^AST , 


» -H1AST 




»1aSt 


QmAST 


IMAST 


• SfACE 




MPbKY 


OLNT 




C9*'N9\ 


/«L<15/ 


CHSS.T 


HBUFL 


15PI / 


• -IMulF 




NBMCH 


NCW22 


MC.D? 


• \C„HO 




NMANP 


NiCTL 


\~1LN« > 


• VSCT 




MfWED 


NPATB 


MP3» , 


. \-<ESp 




VSTmj 


TySU 


tbyTe , 


• cs 




JS 


FS 


MS 1 


• 'JS 




ws 


SS 


scs 


C91M9N 


/BL<1«/ 


CICTFltSI 


CTBaFiSl 


STSYjim , 


. CBNTB 


62) / 


C'JkBF( 31 1 


CYCldSl ) 


EMM(»96i « 


• E^9FF 


?1 ) 


Q33T(1Z*I 


SAWTP(31 ) 


5B.TPI31 ) , 


• CiLABC 


12* ) , 


C)3jti( 12») 


GUAHCM?*) 


INTDJ(»96) t 


. SSSS[ l2») , 


Tk-(31 1 


kRKSF(31 ) 




C91M9.-I 


/BI_<Lvb/ 


LEVL5A.SSTN5 


END5»E"05J»MI ; i 


:T5»'1IMoF,PPT1ME 


I«T£GEr 


> SRTN5/Em;55<E^D51»9HT 


ME/BPTIN 




;9"r-B\ 


/o2C" , ' J T/ 


«R*BFS(12»)» 


9(12*1/ !FA(3l 1 


EnTcyC(3ihSpl1 


1 CIjHP\(31) 








cg'iMB'-i 


/asoai/ 


IL)9<A 






\C"22., 


•INu" CSMT 1 - ? 






IF< 105 


^E.-n 


CALL «T>Q1 






I39»N. 










!SS«NC*2a*l 








is ce^Tiv 


■ E 








s-:t sta 


J F3* ALL CONTOBLLE^S 






3TSYJI 


R61.-1 








Hb.i^b-a 








If 1 1*6 


3E^'l QB 


T9 10 






SrT «ETJ>tN ClBCk 


C9JM G«EATE W 


THA.* 3 H'<UTj;S 




GCNTMB3 








E\U5»1 










-AST(J f 


AST)«? 








SETURlJ 










EVJ 











23 


1 


23 


p 


23 


3 


23 


K 


23 


5 


23 


6 


23 


7 


23 


8 


23 


9 


23 


10 


23 


11 


23 


12 


23 


13 


23 


1» 


S3 


15 


23 


16 


23 


17 


23 


1? 


23 


19 


23 


*0 


23 


21 


23 


2? 


23 


23 


23 


2k 


23 


25 


23 


Sb 


23 


27 


23 


2"! 


23 


29 


23 


30 


23 


»1 


23 


32 


23 


33 


23 


31 


23 


35 


23 


36 


23 


37 


23 


38 


23 


39 


23 


»? 



115 



2.6.65 SUBROUTINE Ql 



RjJTl jC i RTN01 



*TNJ1 
SJiRBuTINE XT\»1 
l^TtSEh 0r"8DE,i9DC^ TAB,FTb 



C^Mfi-l /dL<13/ 


OL<?59> 


, D-LP(17) 


l 


E8DC 


1 FTAB. FTB.J, 


'BE IF (69) 








C91Me.» /BL*IS/ 


chset 


. HBUFL 


l 


I3PI 


• -1NUMF , 


N9.1C" 


. NCW22 


l 


NC.D? 


• \L»RJ , 


NHANP 


, SMCTL 


# 


^ V ^L^< 


• VSCT » 


NIvED 


, NPATB 


» 


NPS* 


. NNESP i 


NSTMl 


, TBSIZ 


I 


TBYTE 


• cs , 


DS 


• FS 


1 


MS 


• as i 


RS 


. SS 


1 


scs 


CSirB.M /tJLKS*/ 


AMIST(138)« 


C-OIS, OCF, 






• o»» < 


FMTBO 


, FSTFL 


f 


HLIDF 


• HLIDT(96) i 


NHOAY 


, PRCBD 


1 


PTM745I 


• S"TFL. SP.DIS. 


TMRSH, VMISTI138) 






CS^MBN /BLK25/ 


AMCCI138). 


CnnAU(l7)< cnAB(258!» 


• DTTAB(25S) , 


DISI17) 


. DMAlF(17) 


1 


D18DE 


• FLTA61800! t 


HRF 


, M8DES 


1 


NAI 


• NBFAL, SBA*(69)» SECFCI4) 


i SCDFCI4), V8LI138 


) 


cb-^b^ /CBMJ/ 


.PBPT 








8PE N ShuTBB.n FILE 









I8PT.1 , 

CALL CAL8P<I9PT,N9FAL,EB0C»N H DAY,FTAB.FTBk.D/LPBPTl 
SET TABlE INDEX TB 1 
I*6»l 

J.l 

C*LL MBVERCJ) 

SET LB9P C8UMT 

IR7.N1SCT 
30 CBNTlNbE 

CHECK DS.SIBE.J MBDE FBR ALL SEeTIBNS, TEST IF MANUAL 

CALL iETBY(Ui9L)E< IS7» ITMP) 

IF( ITMP.NE.l ) U8 TB 40 

VES» StT T8 T8U 

IT1P.IT1P*1 

CALL PTBY( J m 8BE« IP7< IT~1P) 
40 CBnTIn^E 

IR7.IS7-1 

IF( IR7.C-E.1) GB T8 30 

J"2 

CALL ^BVER(J) 

SET I8PT F9« WHITE SHUTD8WN FILE 

IJPT.2 

CALL CaLBP( IBPT,N8FAL,E9DC,NHDAY,FTAB»FTBwD»LPtfPT) 

RETURN 

END 



24 


1 


24 


? 


2* 


3 


24 


4 


2* 


5 


20 


6 


2» 


7 


24 


8 


St 


9 


24 


10 


2* 


11 


24 


12 


24 


13 


24 


14 


24 


15 


24 


16 


24 


17 


24 


18 


24 


19 


2* 


20 


24 


21 


24 


22 


24 


23 


24 


24 


24 


25 


24 


26 


24 


27 


24 


28 


24 


29 


24 


30 


24 


31 


24 


32 


24 


33 


24 


34 


24 


35 


24 


36 


24 


37 


24 


38 


24 


39 


24 


40 


24 


41 


24 


42 


24 


43 


24 


44 


24 


45 


24 


46 


24 


47 



116 



2.6.66 SUBROUTINE GALOP 



B^UTKE: CAL8P«Ci.9SE»ERR8R*F«ACa3PEN 



• • 


CALBP.CL8SE 


,ERR9w»FRAD.9PE 




3tf 


CAL8P 




OEF 


LL8SE 




DEF 


ERR9K 




DEF 


FRAD 




DEF 


BPEN 




"EF 


LPBUF 




REF 


9SETLP\ 




RES 


1 


1 


RES 


1 




OAT* 


C 




RES 


1 


Jl 


RES 


1 




DaTa 


3 




RES 


1 


J2 


RES 


1 




u»TA 


? 




RES 


1 


J3 


RES 


1 




DATA 


3 




RES 


1 


J» 


RES 


1 




Data 







RES 


1 


j5 


RES 


1 




DATA 







RES 


1 


J6 


RES 


1 




DATA 





PT"P1 


RES 1 




CALBH 


RES 







LI«5 


7 




BAl«6 


9SETUPN 




GE..i.a,2A 


1,1 




GE\»<S»2» 


l.Jl 




GE\iti2« 


1,J2 




GEN*8#2* 


1aj3 




GE v»8.2» 


1a J* 




GEm»8/2» 


1.J5 




GEN.8.2* 


1. J6 




ST., 15 PT"P1 




L.,2 


•I 




MT«*-1 


2 




6EZ 


BPENi 




L«. 1 


•J6 




L*,2 


•Jl 




ST.. 2 


LPBUF.l 




M.l 


1 




L-.3 


•J2 




ST..3 


LPBUF a 1 




AJ,1 


1 




L**« 


•J3 




ST.*'. 


LPBJFil 




AI.l 


1 




L»a5 


•J* 




ST. .5 


LPBUF.l 




*I»1 


1 




L«t« 


•JS 




ST. #6 


LPbUFAl 




CAL1.1 


.RTRAD 


OEXIT 


RES 


D 




CAlIaI 


CL9SE 




CAi.1,5 


RLSKJNG 




CAl1a9 


1 


ERX9R 


RES 


c 




CALL 2 


ERRFPT 




e 


UEXIT 


8PEN1 


RES 







CAl1,1 


9PEN 




B • 


PTMP1 


WRTRA[. 


S£na8a2» 


17.FRA0 




GEn»».*»» 


a!6»» 15»0'0<1 




Data 


ERR9R 




Data 


ERR9R 




DATA 


LPBUFa»«1800 


8PEN 


GEn.8.2* 


21.FRAD 




DATA 





CL»SE 


GEn»8a2* 


21. FRAD 




DATA 





ERKFPT 


BEN'S* 2* 


2.0 




GEN«8a2» 


8.16 




DATA 


"ESS 


RLS«|NG 


SEN* 8*8* 


XiOB'.O 




TEXT 


•KING • 


MESS 


TExTC 


• I/B ERR8R 8N 


FRAD 


RES 







SEN» 8» 2* 


7a1 




SENa8a16a 


8 5,9.0 




DATA 


0,0,0 




TEXT 


•ENDDAY' 




END 





ST8Rf I INTB REGISTER 2 

8PEN SMjTD9k\ FILE 

NU"BfR 9F SYSTEM FAILURES 
ST9RE INT8 BUFFER 
INCREMENT BUFFER CBunTER 
ENO 8F DAY CBUYT 
ST9RE INT8 BUFFER 
INChE-XNT BUFFER C8UNTER 

nu1ber 9f hblidays 
st8re int8 buffer 
I\Cre m ent buffer cbuvter 
failure table indices 
stbre intb buffer 
^cre m ent buffer cbunte? 
failure table indices- 
stbre intb buffer 
urite shutdbkn file 



RELEASE PR8URAM 
EXIT 



TYPE BUT RAD ERRBR 
9PEN SMUTD9I.N FILE 



SHUTD9.N FILE (D»aENDDAY)I 



TEMP FIX (D3«8a N8 d»>< 



3 


1 


3 


2 


3 


3 


3 


A 


3 


5 


3 


6 


3 


7 


3 


8 


3 


9 


3 


10 


3 


11 


3 


12 


3 


13 


3 


1» 


3 


15 


3 


16 


3 


17 


3 


18 


3 


19 


3 


20 


3 


21 


3 


22 


3 


23 


3 


2» 


3 


25 


3 


26 


3 


27 


3 


28 


3 


29 


3 


30 


3 


31 


3 


32 


3 


33 


3 


3<t 


3 


35 


3 


36 


3 


37 


3 


3R 


3 


39 


3 


»0 


3 


M 


3 


»2 


3 


»3 


3 


*» 


3 


»5 


3 


»6 


3 


»7 


3 


• 8 


3 


»9 


3 


50 


3 


51 


3 


5? 


3 


53 


3 


5* 


3 


55 


3 


56 


3 


57 


3 


58 


? 


59 


3 


60 


3 


61 


3 


62 


3 


63 


3 


6* 


3 


65 


3 


66 


3 


67 


3 


68 


3 


69 


3 


70 


3 


71 


3 


72 


3 


73 


3 


7» 


3 


75 


3 


76 


3 


77 


3 


78 


3 


79 


3 


80 


3 


Bl 


3 


82 


3 


93 


3 


8* 


3 


85 


3 


86 


3 


87 


3 


88 


3 


89 


3 


90 


3 


91 



117 



2.6.67 SUBROUTIN E MOVER 



R8uT 


c * -ibve* 

SjSRSjTINE "iBvERIJ) 






I\TE0Eii CTBUE.CICTF/CMMAL 


tS,DATE,DIS»OKALF,DM80E,0S, 




1 F LTA„,FS. H LIUT,LPbJF,SEC*C,SCDFC/SS 




CB^hBN /BLnIS/ ChsET 


, HBUFl i 13PI 




• -iNuHF , NB1CM 


, NCW22 , NCD2 




• \CkR0 > NMANP 


, NMCTL / N1LN* 




• \">SCT , NMVED 


NPATB i NPB* 




• \*ESP < NST~1 


, TBSU i TBY7E 




• CS , OS 


, FS i MS 




. QS , KS 


, Sii / SCS 




CS^fieN /BL<1S/ CICTF(s) 


, CT80F(RI / STBV0I8I 




. C8NTB(62) , CUKBFl 31 ) 


, CYCLC(31) . EMMI»»ftl 




• ESBFFlSl) / ufi^T(124| 


j GAwTPCH ) , 5B.TPI3I ) 




• 3U*BC(121) < uGGCilia*) 


, GUABC(l?»i I 1NTDJ(<»96) 




. SSSSl l2») . TKMOl ) 


, WKKBF|31) 




C91MBN /oLi*2t/ AHISTI138) 


C\DIS# DCF, 




• O 1 *., , F1TB3 


, FSTFL , HL1DF 




• -<LI0T(96) , NHDAY 


, PRCOJ , PTm(7i.5) 




• 5«TF Lj SROIS, THRSH. ^H1ST(13B) 




C9"IHBN /t)L<25/ AHCCH38). 


L^-ALI l7), C"TAB(258)/ 




• DTTAB<258) , LSI S ( l 7 ) 


, DMALF(]7) . 019DE 




• FLTAS ( a00) , HRF 


, PBP-ES , N»I 




. -.BFA L , SB«*(69)/ SEcFCC 


i SCDFCI*), V9L(138) 




t8">K8*- /BL<26/ CATEO) 


, P^V0(3) » LPBuF,i80b) 




CB'ViBn /C8U/ LPBPT 






EJUiVA u EMCL (</L p BPll 






u9 T8 (10<30)jJ 






10 CBMISuE 






ICS.CS*1 






OB 15 I.IjICS 






S.S.I 






L PBUF< I >.CT8i)F(\> 






lb CBNTI'uE 






a.ICS 






oe 25 i.i.n-s 






S..5.I 






L»*-fl 






!_ p BuF(Ll.C|CTF(\> 






2b C9NTINUE 






*.<»ICS 






u9 T8 l5o 






JO C8MTI\lE 






I3S.0S*1 






38 35 I-l.IOS 






^•<*I 






LPBUFlLl.CI^ALI I ) 






3b C8nti\lE 






«"«<-lCS 






08 *5 I .1, PJS 






L .K*I 






LPBUF( U ).D1ALF( I ) 






♦ 5 CeNTIrjuE 






K»<*IDS 






08 55 I all I US 






L»K*1 






lP»UF(l)«DIS( I) 






5b CBNTINuE 






«..**IDS 






INS.NS.l 






09 65 [■HNS 






L«<*I 






l P1LF(l I.Sit-FCC I ; 






bz> CBMTI-^E 






«C.<*I*S 






08 75 I'lins 






^•<*I 






L PBUF(L ).SC')FC( ! ) 






>i C8-JTI (uE 






K.K+1 IS 






L PbUF(»»l ).l)16UE 






K.« + l 






08 99 I.UJ 






L«<*I 






L PBUF|lI»DATE( I 1 






95 CONTINUE 






*«<*3 






08 105 I»l»96 






L»<+1 






lPBUF|i_|.FLTAB( 1 ) 






105 CSMlNuE 






k.<»9b 






IFS.FS.l 






09 115 I.l/IFS 






L«<*I 






L PBUF( L ).h L IDT( 1 ) 






lib CSNTI'iuE 






K.'+IFS 






ISO CSSTlNoE 






RETuR'i 






ENU 





25 


1 


25 


2 


25 


3 


25 


« 


25 


5 


25 


6 


25 


7 


25 


8 


25 


9 


25 


1? 


25 


11 


25 


12 


25 


13 


25 


11 


25 


15 


25 


16 


25 


17 


25 


18 


25 


19 


25 


20 


25 


21 


25 


22 


25 


23 


25 


2* 


25 


25 


25 


?6 


25 


27 


25 


28 


25 


29 


25 


30 


25 


31 


25 


3? 


25 


33 


25 


3* 


25 


35 


25 


36 


25 


37 


25 


38 


25 


39 


25 


»0 


25 


"1 


25 


"2 


25 


»3 


25 


«<» 


25 


»5 


25 


"6 


25 


<«7 


25 


»8 


25 


»9 


25 


50 


25 


51 


25 


52 


25 


53 


25 


5» 


25 


55 


25 


56 


Z% 


57 


25 


58 


25 


S9 


S5 


60 


25 


61 


25 


62 


25 


63 


25 


6lt 


25 


65 


25 


66 


25 


67 


25 


68 


25 


69 


25 


70 


25 


71 


25 


72 


25 


73 


25 


7« 


25 


75 


25 


76 


25 


77 


25 


78 


25 


79 


25 


80 


25 


81 


25 


8? 


25 


83 


25 


8« 


25 


85 


25 


86 


25 


87 


25 


88 


25 


89 


25 


90 


2S 


91 



118 



2.6.68 ROUTINE R 



R3jtI>.e: RTm* 



• XTSR 

SJ-SRBuTl ,£ «TNR 

CS^MBN /dL<17/ A0V\I(8! » CICBK8) . C»9G!<8) . 

• I'DPIcS) . CNT3R(12»I . CNTSM i IL2 I 

• !^TM<31I » IM L l(3l> » INTBM32) . <ll • 
. STBTI(3ai, T|>iEIOt)< J«W9KI|6«> 

:sil»\ /JL<13/ CC2I129W Df»lLI69)» r8F<l7)l 
. "IKJi I , RA»9CI2»8) < RA.SPI25M «9TC > 

. TSTRT<516> 
•• RATINE » - '|TR*\SF»S'"»T(8n FRB" CBMPUTER C8"»TR8L TB STANDS") 
C9"<H8N/fiITL2/BlTAR<6»0) 

Cl^E^SIB J AUVNH(32),A8i<32)»APBC32)#AuT9F(32)»ClCBPt3?>» 
1C!CEF(j2),CICTF<32),CTB0F(32|,C'ALF(32)«CPA9&<32>»FSTCF (32 I. 
2h9LD(3?).IaJvp<32>» I »TlS ( 32 ) . SE-Stl 3? I .SPLC«I 32 ) .STBvOI 3> ) . 
3ST«T*( J2I.TNMSF (32)<CICSF<32| 

EOJIvalENCE 
It AJvNh.BITa 1 *! l)),(»8i .BlTA-M 33)>»(AP9 .BITARi 61 1 I • 
2(AJTBF,3ITaK< 97)), 

1 (CICBP.BITa*! 129) >» (CICEr. BITARI 161 1 ). (C!CSF,8lTARtl93) ), 
] (CICTF,8ITA-<(j£5) ), (CT8DF,BlTA-»<257) I. (C^AL*. 91 TAR ( J«,q | )> 
3(CABU,8ITa«(321 I >. (FSTCF,dlTAR<353) |, (-9L0 iBITAROgB ) ) , 
Ml»DVP.aITA-<(«17)), (|\TlS,alTA*(»«9> )j <SE-S«.BlTAB(»j| ) >, 
SlS^uCh.aiTAXiSlS) ), (STRTA,BITAR(5»S) ), (ST8T3.BITA«,577) ), 
6<TRNSF,9ITAH(6j9l ) 

C9~>Me , /d»TL2/ICSM,Ju2.<l.?< I?ECR» »SL?<50 ) 

IsTEGE* AD»~-i/A8lj, aP9.au rBf.9PSlP.8Tli y.e, CI C6P.C ICE F.C1CSF. 
lCH-TF,CT8DF»CAi.F 1 CPA80.FSTCr,^AI,H9 L 5 / SE M S<,SPLC^.STe»D. 
2STXTA.TB-.SF 

INTEGER A"9>'M,C9NTtJ.C>.TL,N»CTeLC»E'<INT, , 3AABl.;>A.TP, jS.TP, 
lCiLABC.ulABCl.ObET.v.CICr, J , 3J.33HS.3v9«.cao,STfaTr.,s«aCT.TE.C' / 'I -, E9, 
2TiO.V9l»v9T 

INTEGE* A»"3"I,t8NTI.CNTLl,C;TCLl»E'»l - «I»S»»BI.iA»TI < o9,Tl,-,u»"I» 
1&l«BI,o1ABI»3CICI, .lJIjQ3H>*I,0VB*I.HRRI.STbT|,SAbCI.'r.CI.'I^EI» 
2T<1I#V8LI»VBTI 

EQUIVALENCE <ST9T*l.«SL2U ) > 

08 83c 11*1/32 

KL8«ICBN»!I 

IF (STbVDI II l.Erj.O) GB T9 SO. 

IF (HUlOI II I.EJ.O) GO TB 800 

TRNSF< I I).D 

SPLCH< II).C 

CALL UPBTT(STBT!.Kl2»STBT»I 

IF (SToTl.jT.O) G9 T8 630 

ST»T1»j 

JF (STSTAdI 1.E2.1 ) STBTI.IDrC? 

G8 TB 790 
630 STHTm.sTBT-i*IDEC* 

IF (STbTM.LT.J6) GB TB 790 

CALL PK9YT (KII.KLSiU) 

H9LDI I I 1 «0 

CICEFC I Il.C 

ClCTFdll.C 
780 STBTMio 

STBYOl I I ) ao 
790 CALL PkBTT(STBT!.<i_2.STBTM) 
S30 CBSTImlE 

RETURN 

EVJ 



16 


1 


16 


2 


16 


3 


16 


6 


16 


s 


16 


6 


16 


7 


16 


! 


16 


9 


16 


10 


16 


11 


16 


12 


16 


13 


16 


1* 


16 


IS 


16 


16 


16 


17 


16 


IS 


16 


19 


16 


2: 


16 


21 


16 


2? 


16 


23 


16 


2« 


16 


?» 


16 


26 


16 


?7 


16 


28 


16 


29 


16 


3: 


16 


ji 


16 


32 


16 


33 


16 


JA 


16 


38 


16 


36 


16 


37 


16 


11 


16 


3" 


16 


A* 


16 


'1 


16 


♦? 


16 


• 1 


16 


A6 


16 


68 


16 


»6 


16 


• 7 


16 


•» 


16 


*q 


16 


5T 


16 


SI 


16 


52 


16 


53 


16 


5A 


16 


55 


16 


56 


16 


57 


16 


5* 



119 



2.6.69 ROUTINE S 



ROUTINES RTNS 



• RTNS 
SUSRBuTInE *TNS 

• THt PuRP9SE BF THIS RSuTINE IS Te C9vPuTE THE REQUI Rr O paRa-ETERS 

• TB ALLBi A SM8BTH TRANSITI9N FRBr BN f AREA PATTERN T8 aN-JTheH 

c81m6m /3l<7 /a80i < 161 / inthk31) , int2k31) , 

• kctci 17),<3ph1 | 31 ).stupf»nq l (31 ! 

c91m8n /bl<1*/ cleng » otlng , cm-lng , 

• oumyi , ouiy2, 

• cntlh372). entfli51, kclu7), kctf ( i7>. 

• KCSF(l7l. NmvAIOii, S1SKII8). 

• V*INI(123) . LM<PT(6»> 

C91M8N /BLK17/ ADVNII8) > CICBI(fj) , CAB6H8I 

• I*DP| I 8) , CNTDR(12») » CNTNM , IL2 
. PT1I|3l) , INTLllSl) » INT01 |32) , KL1 

• STBTI(32>. TIMEII32I, QV8KI(69> 
CB^MBN /SLK18/ CICTKB) « CTBDII8) , STBDI(R) 

. C1NT1 ( 62) , CUR8I(31> « CYCLIOl) . ENIN!(»96| 

• E^8Fl|3l) , SAAbI(12«) » GAWTIOli , Gtt»TI(3l) 

• GLABIll2»> , GMABK12*) « GUABI(12») » INTDI(»96) 
. SAH.CI<12*I « TK1II31) #hUK8I(3l) 

C8H8N /BL«19/ CC2I129), DFA[L(69), D9F(17)# 

• 111(311 I RAWBC(?58) , RA*SP(25fe) ,BTC 
. TSTRT(516) 

C91M8N/BITL2/BITAR(6»0) 

3 PENS IBM A<JvNH(3 2 ),aBG02>»aP8(32),aUT8F(3?)»C!CBP(3?i # 
1CICEF(32> jClCTK(32)»CT90F(32),cnAUF(3?l,CP»8G(3SI,FSTCPn2l. 
SHeLD(32)/ IAUvp(32),INTlS(32),SEMS<(3p),SpLCH ( 3a) # STByD(3a)j 
3STRTA(32),THNSF(32),CICSF(32| 

EQUIVALENCE 
1 (AOvNH,bITaH| 1)),(ABg ,BlTAR( 331). (AP9 ,9lTAR( 651). 
2(AUT8F,BITAW( 97)). 

1(CICBP,BITAK<129)), ( CI CEP. BI TAR (161) I. I C1CSF, BITAR { 1 93 ) ) , 
KCICTF.BITA* (225)1, (CT80F,BITAH(257) ), { CMALF, BI TAR ( 289 I I, 
3(CPA8G.alTAR(32l ) ), (fSTCf, BI TA« ( 353 ) ). (H8LD ,BITAR(385) ). 
»( IA0VP.BITARHH7)), ( I NT jS, 8 1 TAR (4*9) , , ( SElSK, BI TAR ( If 81 ) ), 
5(SPLCH,BITA«(513) )» I STRTA, 8 I TAR( 5*5 I ), ( STBYD, BI TAR ( 577 1 1 , 
6|TRNSF.8ITAK<609)1 
C81MBN /BYTL2/ICBN, JL2.KL2, IDECR, *SL2 ( 50 1 
C91M8N /G2CBNT/ *RK8FS(12»)» 19(12*1, IEA ( 3i > « ENTCYC < 3l I 
INTEGER A0vNH,A9G,APB,AUTBF,aPSIF,BTRNF,CICBP,CICEF,CICSF, 
lCICTF,CT9DF,CMALF,CPA8G,FSTCF,GAI # H9L0,SE1SK ( SPLCH,STBr0, 
2STRTA,7RNSF 

INTEGER AfePN # C8NT3,CNTLN,LYCLC,ENINT,GAABC,GA»TP,aBwTP, 
lGL«BC,(jWABC,LDSET,JCICT,:jQlJ,QQRR / QVBK,RRR,ST6T'1,SABCT,TE..CT,TPE8, 
2T<1, VBliVBT 

INTEGER AM8"I,C8NTI,CNTLl,CTCLl,ENINI,GAABI,OA*TI,GB»Tl,GUAPI, 
1&lABI,G1ABI»QCICI,30QI,QQRRI,QV8K;[,RRRI,STBTI,SABCI.TF>CI»TIME[, 
2TK1I.V8LI, vBTI 
INTEGEn -RkBI,EN8FI,CU«8I,«RIM 
INTEGES CLENG,CNTDR,E1AST,STUPF,ENTF L 
INTEGER CUR9F,EN9FF,VRINT,"R<6F 
DPENSI8N GAABC(<t),GMABC(<t>»SABCT(<») 
EQUIVALENCE (.Sl2(9),CTClC), I WSL2 ( 10 I , GAABC ( 1 1 1. 
l(«SL2(i*),GiABC(l)l,(»SL2(18).K3PHl, ,i>SL2 ( 19 ) , NMvAR ) , 
2(*'SL2(20)«SABCT(1 1 1, ( *SL2 < 2» > , TKM ) 

EQUIVALENCE (k,SL2(30),ENINT,lNT0U), USL2131 1, IH6I, ( *JSL2 ( 32 ) . VAK01 . 
1 ("SL2I33I, VARl ), (WSL2(3»I,VAR2), (WSL2I35), I R15 I , (KSL2 (36 1 , IC8NS), 
U "SJ-2137 1 , I H7 1, (WSL2I38 ), IWl>)t.( wSL2jJ91,JR13 1 . < t>SL2 I 40 I , I R5 1 « 
3(»SL2(»l),I*<12),(WSL2(»2)iIRll)/(WSL?(43),ENeFF),(»SL?(*»), 
4VRINT) 
INTEGER VAR0,VAPl,vAR2 
INTEGE^ «R<F,E'«8F 
INTEGEf- VRNT1.VRNT2.VRNT3 
CALL U'.PS 
IRS.16.(<L2*ll*l 
jU»««k 1 _2-3 

CALL Ul-BTT(VRI\I, JJ.VRNT1 1 
CALL uPBrT(V«I\J, J„<n,VRNT2) 
CALL LP3VT(VRI\I,jj«2,vRNT3) 
VAR0«Ik6»VRNTl 
VAR1.IK6.VRNT2 
VA«2»IR6«VRNT3 
>• C81PUTE DELTA 8FFSET.THE DIFFERENCE BET«EEN THE PRESENT 8FFSET 
>• AN3 THE DESIREU 8FFSET 
IR15«En9FF.*ctC(CyclC1 
'• IF THIS IS UREATER THAN .3 ADD IN CYCLE LENGTH 

IFURib.LT.-6) IR1S«1R15«KCL(CYCLC> 
'• GET16 ENTRY DURATIBN VALUES AND ST9BE IN I.8RKING Asoav 
CALL KBVTS(EMNI,INTDI»!R6«16> 
CALL UPBYT(ENTCYC,HL2,ICY) 
CALL PkBYT(CYCLI,i<l2, ICY) 
>• TEST ABSBLuTE DELTA 8FFSET T9 CH£C« IF GREATER Than 3 SEC9NDS 
'• IF NBT N9 TRANSITI8NAL CYCLES -ILL Be "ECUIRED 

IF(IABS(IR15).LE.6) G9 T9 1803 
'• TEST DELTA OFFSET AGAINST Ts-ilIMW CYCLE LENGTH, 

IF( IR15.GT.TKM) 68 T9 1110 
>• N9, N9T JREATEH, AOD IN CYCLE LENGTH T« DELTA BFFSET 

IR15oIR15*<CL(CYdLC) 
>• TEST IF DELTA. BFFSET»KCL > 2.T<M 

IF (IRl5.LE'2»TKM) G8 T8 111} 
•• IF SB, HALVE DELTA. BFFSET&KCL 

IR15«IK15/2 
>• SET 2 IN IRJl, AND ST8RE IN Mj 
IR1*»2 
G8 TB 1160 
'• IF NBT, SET 1 IN rftl» AND ST8RE IN H[ 
IRUal 



11 
12 
13 
1« 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2". 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3» 
35 
36 
37 
38 
39 
*0 
•1 
• 2 
*3 
»» 
»5 
"6 
»7 
»8 
»9 
50 
51 
52 
53 
5« 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6* 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7» 
75 
76 
77 
78 
79 
«C 
81 
«? 
S3 
8. 
85 
86 
87 
88 
S9 
9? 
91 
92 
93 
9» 
95 
96 
97 



120 



C •• AFTER SETTING MI T8 PREDETERMINED VA l lE# DETERMINE STARTING INUEX 
C •• If 3 PHASE CBNTRBLLER SET STARTING Iso E< T 8 3| PTheR.ISE Se t 

c •* starting index tb a 

1163 CBNTINuE 

CALL PK8YT("II/KLS,IR1») 

ms.2 

IT (KSPH.NE'l) GB TB 1233 

IR13.3 
1230 IR7.JJ «IRl3 
C •• If IRIS OREATE* THAN 9R . T8 THE NuMre" BE ADJUSTABLE INTERVALS 
C •• TEST IF END- IF YES GET BUT BE LB9P 
C •• SET MINIMUM ALLBiABLE DURATIONS F8R a,B, 8" C PHASE GREEN SUSPECT 

1250 IF ( IR13.GE-NMVAR) G8 TB 1350 
C •• IVELY INT9 INTDU- 

INTDU.uMABCI IR13) 

CALL UPBYTi VRINJ, IR7.VRINT) 

IRS»IRo*VRINr 

CALL PkBYT( InTuI, IR5» INTDU) 

IR7.IR7«1 

IR13»IR13*1 

G8 TB 1250 
C •• CHECK IF TYfE OF CBNTRBLLE^IK-jPH) JS TYPE B<N8N SvEKLAPPtNG 
C •• MBVEME^TS. IF YES. GB TB 3 PHASE L8RP 

1353 IF (K3PH.Efl'l) GB TB 1900 
C •• IR15.D6FF.SABCT 

IR15«Ik15.SA8CTC.) 
C •• SAVE IR15 F8R LATER 

IP12.lf.15 
1»JC CALL JFBYT(ENINI,VARl»ENINT) 

I'15«Ihl5»(SABCT(2l»ENINT) 

IR15.I IR15/liAABC(l>*2«l>/H 

IF( IR15.LE.UMABCI2I I GB TB 2l80 

IR12.IhlJ-IH15 

IF( IR1J •LE.'JMABCd ) I GB TB 237C 

INTDu.ISl5-SABCT(2) 

CALL P«.BYT< INTD|»VARi#INTOu) 

INTDU. IR12-SABCTI1 ) 

CALL P«.BYT( INTDI.VARo. INTDU) 

GB TB ^^^0 
C *• Sl t «8R*ING BFfSET ESUAL T3 ENTRY 8FFSET 
1S0U CBNTINuE 

CALL PnBYT(»RKBI.KL2.ENBFF> 
C •• ST9RE FIRST INTERVAL DURAT18\ 5 D8FF IN COUNTDOWN REGISTE" 

CALL uPBYTI INTOI, IR6, INTDU) 

CNTDR(*L2)«IR15»INTD3 
C •• iE'B BlT Mjj THE NU"8E« 9F TRANSITI8\ CYCLES 9E M AlNlNG 

CALL P*8YT(MI I.KL2.0) 
C •• EXIT T6 RBjTInE T 

RETURN 
1900 IR15-Ik15-SAHCT|M 

IR12-IR15 

CALL UPBYT(ENINI,vaR2.ENINT) 

IR15«(SABCT(3)+EN!NT)/aAABC(3)»2«IRlB 

IR15X lR15.fl 1/2 

IF( IR1S.3T.UMABCI3) I GB T8 2513 

IR15»Gf,A9C!3) 

IVTDU.H15-SABCTO) 
2100 IR.12.IR12.IK15 

CALL PuBYTl INTDI.VAR2, INTDU) 

IR15.IK12 

GB TB 1*30 
2180 INTDU.IR12-SABCT(1 )-GMABC(2) 

CALL PnBYT( INTDI.VARo. INTD3) 
2273 INTDU. G~1ABC<2)-SABCT(2) 

CALL °«.BYT( INTDI» VAR1» INTDU) 
2320 CALL UPBYT(INTDI, IR6, INTDU) 

C\TCR(»L2). INTDU 

RETuR'. 
2J70 INTDU.„MABC(1 )-SA9CT(l ) 

CALL P,«.BYT( 1NTOI.VAR0. INTDU) 

IU12.IR12+IH15 

INTD3.IR12.SabCT(2i-GMAbC(1 I 

CALL Pk.BYT(INTDI.VARi, INTDU) 

GB TB r320 
2510 IRll.IR12"j1ABC(2).aMASC(l) 

IF 1 IR]5.8E« IR11) GB TB 2630 

GB TB 2100 
2630 INTDU. GMABC(l)-SABCTll I 

CALL P».BYT( INTDI.VARO.INTDU) 

INTDU.IR12.GMABC(D-SABCT(3).GMABC(2l 

CALL PK.BYTllNT01.VARl, INTDU) 

G8 TB 2270 

END 



17 


9g 


17 


99 


17 


100 


17 


101 


17 


102 


17 


103 


17 


ISA 


17 


135 


17 


106 


17 


1-7 


17 


138 


17 


109 


17 


110 


17 


111 


17 


11? 


17 


113 


17 


11* 


17 


115 


17 


116 


17 


117 


17 


118 


17 


119 


17 


120 


17 


121 


17 


12? 


17 


123 


17 


12* 


17 


125 


17 


126 


17 


137 


17 


128 


17 


129 


17 


130 


17 


131 


17 


132 


17 


133 


17 


13<4 


17 


135 


17 


136 


17 


137 


17 


138 


17 


139 


17 


1»0 


17 


1*1 


17 


1*2 


17 


1»3 


17 


1»* 


17 


1*5 


17 


1*6 


17 


1*7 


17 


l»a 


17 


1*9 


17 


150 


17 


151 


17 


152 


17 


153 


17 


15* 


17 


155 


17 


156 


17 


157 


17 


158 


17 


159 


17 


1*0 


17 


1M 


17 


162 


17 


163 


17 


16* 


17 


165 


17 


166 


17 


167 


17 


168 


17 


169 


17 


170 


17 


171 


17 


172 


17 


173 


17 


17* 


17 


175 


17 


176 


17 


177 


17 


178 


17 


179 


17 


180 



121 



2.6.70 SUBROUTINE MBYTS 



C • "18YTS 

SJ3R8UTINE ""BYTSIA/B, I»N) 
C 

C THIS RHuTINE levES N BYTES 

C ST»KTIN(i »T BYTE I BF » 

C 3BINQ T6 BYTE | JF B 

C 

IMTE6EK A.B 
S L»«3 «I 
S Al/3 -1 

39 10 J'l.N 
S LB,S «*/3 
S STB. 5 «»/3 
S AI.j 1 
S AI.4 1 
1J CB^TINuE 

RETURN 

EMU 



22 


1 


22 


2 


22 


3 


22 


* 


22 


5 


22 


6 


22 


7 


22 


R 


22 


9 


22 


10 


22 


11 


22 


12 


22 


13 


22 


1* 


22 


15 


22 


16 


22 


17 


ii 


IS 



122 



2.6.71 SUBROUTINE UN PS 



RSUTlNit: USPS 



• UNPS 

SUSHBuTlNE U^Pi 

CB1M8N /ait' /ABUK16I i INTHJOii , I*T2I(31) « 

• KCTCI 17),K3PHI (31)<STUPP.i.Ql(31) 

Ce-'MSN /BL<1*/ CLE\G < DTLM) « C^G • 

• OJ^Yl i DIMY2, 

• C*<TL!(372>> E"»TFL(5)/ KCLtl7>« KCTF(17)j 
. *CSf(l7), NlVAI(31)» SMSKl(B). 

• V"INI(123) i LM<PT(t,«) 

CB^MBN /BL<18/ CICTK8) » CTBDIlg) t STBUI(g) i 

• C9NTK62) . CURSIlSl) » CYCLK31I < EMMU96I » 

• E»Sri(3l) , GAABl(12») i 3A-TH31I » G6WTK31) » 

• GLABIH2K) , GMAell!12»> i GUABK12*) . INTDI<»96> » 

• S»BCI(12t) , T<1!(31! .h3K81(3i) 

IMEGES A>-8PI,C8NT!»CNTU,CYCLl»E'''I^I»3AABI»GA.Tl, jB.YI, 30ABI. 
HiLABl.b^ABI.aCKI/^aal/U'JHKl.QVBKI.WRqi.STHTI.SAbCI.Tr-CI.TI-EI. 
8TK1I. vt)LI«V8TI 

IMTEGEK Efv'BF! 

CB^MBN /BYTL2/IC8\I.JL2»KL2« IDECS, *S>L? (50 ) 

INTEGEt- CUWT.EMBFF/ vRINT,<.KKBF 

DI-E'^SISs jAABC(»),GlABCHil»SABCT(it) 

E3JIVA,_E\CE («bL2(9)»CYCLC!< ( *SL2 ( 10 I « 0*ABC ( II )« 
1<«SL2<1*),5*ABC(1) U (WSL2[1»)»«3PH)» ( wSl2 [H I » N-VAR ) , 
2l*SL2(20)»SABCT(l) )»(»SL2(2»)»T<M), ( I.SL2 ( »3 I .ENBFF ) 

l^TEGEt- GAABC»l>"ABC»SABCT,t»CLC»TKl 

1.1.KL2-3 

09 10 J«l»* 

CALL UPBTTlGAABI. I/GAABCI J) ) 

CALL UPBYT(G1AB!» I,i~IAbC( J) ) 

CALL UP3YT(SABC!» I.SABCTl Jl) 
J I»I»1 

CALL uPBYT(LYCL!»KL2»CYClC) 

CYCLC«CYCLC*l 

CALL UPBYT(K3P"]»Kl2»K3Ph| 

CALL UPBYT(NMVAI»KL£.N V WAR) 

CALL UPBYT(TKM1,«L2*TKM) 

CALL UPBYT(E»»6FI#KL2.ENBFF) 

RETURN 

ENJ 



16 


1 


18 


? 


18 


3 


18 


* 


18 


5 


18 


6 


18 


7 


18 


8 


13 


9 


18 


10 


18 


11 


18 


1? 


18 


13 


18 


14 


18 


15 


18 


16 


18 


17 


18 


1« 


18 


19 


18 


2: 


18 


21 


IS 


2? 


18 


?3 


18 


?» 


19 


25 


IS 


2t 


18 


27 


18 


2s 


18 


29 


18 


30 


18 


j: 


1? 


32 


16 


33 


Is 


Jt 


18 


)* 


1" 


it 


18 


37 


1? 


3« 


IS 


39 



123 



2.6/72 ROUTINE T 



RBUTlNE! RTNT 

C • "TNT 

SJBRBuTHE HTM 
C •• THC P«l-URY PU*PBSE er THIS RBUTINe IS T8 ESTABLISH AND !1P«S£ 
C •• THE NECESSARY TRANSITI8N CYCLES T8 TRANSFBR") A CBNTRBLLE"! FC8M 
C •• STANDBY T8 COMPUTES C9NT«BL«THEN T9 STEP THESE C8NTR9LLER ThrBUGM 
C •• THEIR INTERVALS WITHIN A COMPLETE CYCLE. 

C8HM9S. /BL«7 /A8GI(le) » INTHIOl) , JMT2I ( 31 > . 

• KCTCI l7),KJPHl (3J >»STuPF,NQ L (31) 

ceHne-j /bl*i»/ cleng . dtlno . clng , 

• DJMYj , DUF1Y2. 

• CNTLK372)' E'<TFL(5), KCLU7), KCTF(17), 

• KCSFI17), N1 W AI(31), ShSkIIR), 

• V*IM ( 1231 » LN<PT<&*> 

C5HM9S /5LK17/ ADVNl(S) / CICBK&) , CA9l>!<8) , 

-» McPIiS) , C^TD»(124) » CNTNM , IL2 » 

• PTMIiSl) , INTlIOI) » INTBK32) i KL1 , 

• STBTI(32), TIHEK32), UV8XI(6S) 

CB-l^SS /BL^IS/ CICTK8) . CTSDI(fe) , ST8DI18) , 

. ONTI ( 62l » CURBI(31I > CYCLIOl) » EMM(»96> » 

• ENBFI(il) , GAAdl(l2») . GA«TI(31) , GBfcTIOl) , 

• (iLAni(12*> , GMAoI(12») < 3U*BI(i2») I INTum96> , 

• SABCIdZ*) « TKMK31) ,kRKBI(31) 
C8HMBN /BLM9/ CC2I129), DFAILI69), D8F(17)> 

• 111(31) » RAU9CC258) < RA*SP(25g) #RTC , 
. TSTRT(516) 

C9HM8 ( M/aL"ia/AuR(i»),PIA(6)»RC 1 (2).HS9(H.l.AP8'1l ( 1» ) . CPN9U, CPNBT, 
. HARRJs^fj) , H1AP(2) , JCNT » KCNT i 

• "INC15 , xHSBF , CLBCK » W1INF • 
. 1INCT . TAUI31 » N9NB18) 

CBHKBn /J2CBNT/ wRkBFSI^*), 19(12*), IE*(3i)»ENtCYC(3i>,SPLIT[i24), 
1 C^RP:.(31) 

EJJIVA L E'JCt (AUTt»Ij*DVNII2) ) . ( C ICE I »CICBI ( 2 1 > , 
» (&AII,AGR(2) ) » (H8lDI«hs8(2) ) 

' DPE*Sl9< HBL0K81 

CBHM9n/8ITl2/BITAR(6»0) 

DIhENSIBN AUvNH(32)#A93(3?)» AP9 ( 32) , ALT9F ( 32 ) « CI CBP( 3? I « 
lC I CEF ( i2 ), C I CTF, 32 )» CT8DF ( 32 w C1ALF( 3? ].CPABG( 32 ).FSTCF( 32), 
2h9LD(3?),IaOVP(32), INTlSOEl.SfSKOfl.SPLCHisgl.STBYOOa), 
3ST«TA| J2),THNSF|32HCICSF(32| 

EQUIVALENCE 
1 (AJvNH,BITAR( 1))»(A9G ,BITAH( 33)1, (AP8 ,BITAR( 651], 
21AJT8F,B1TA*( 97)), 

1 |C1CBP,9ITAH(12 9 ) ),(CICEF, BIT AH (161)1, ( CI CSF , BI TAR ( 193 ) ), 
1(CICTF,9ITAK(225J), (CTBOF, Bl TAR ( 257 ) 1, I CrtALF, BlTAR ( 289 1 ), 
3(CPA8a,BITAH(32] , ,, ( FSTCF, BI TAR ( 353 ) ), (H8L0 ,BITAR(385) ), 
»(I*DvP,aITAH(»l7) ),(INTlS,BlTAH(i»»9))< (SEHSK,BITAR(*81 I ), 
• 5(SPLCh,3ITAR(513)>, (STWTA, BI TAR (5*5 > I , ( STBYO, BI TAR [577 ) ) , 
6ITRNSF,BITAR(609) ) 
CBHMBiv /BYTL2/IC8N,JL2,KL2, I DECR, «SL2 <5u ) 

I YTEGER ADvNH,ABC,AP8,AUT8F,6PSlF,BTRNF,cICBP,CICEF,CICSF, 
1CICTF,lT9DF,C1AlF,CPABIj,FS1LF,UAI,m9lD,SEHSK,SPLC«,STBYD. 
2STRTA/TRNSF 

I NTEGEK AHBH\,LBNTB,CNTLN,LYCLC,ENINT,r,AABC,UAnTP,aB»TP, 
1SLABC,U1ABC,LDSET, JCICT, 3Q(o 3QRR, QV8K,RRR,STBT",SABCT, TE«CT, T!*EB, 
2TK->,V9l,v9T 
■INTEGER AMBHI,ceNT!,CNTLl,CYCLl/ENI''II,GAABt,UA.»TI,&B,,Tl,1UAF l I« 
lt.LABI,uHABI,3CICl,^QOI,Q'3Rwl,OVBKI,RRRI,STBTI,SABCI,TE«CI,TIMEI, 
2TK"1I,V6LI«VBTI 

I NTEGER wRkB!,ENBFI,CU RB1, VRINI 

1NTEGEK CLENG,C k iTDR,EMAST,STjPF,ENTFL 
IMTEGE*- C0RBF,ENBFF,VRINT,>««<9F 
IN.IEGES VRnT1,VRNT2,ENBF 

E30IVA L ENCE («'SL2(l),GA«TP),|iiSL2(2),3BhTP)< 
1 (»SL2(*),INTR2i,{wSL2(5),INTRH),(wSL?(6),INTNH),('wSL?(7)ir.TNLI, 
2(nSL2(8)iTEKCT) 

iiJI VALENCE («Sl2(30),ENINT,INTDU, IREOFl, 
1 i»SL2(i2l,I"<2i, («5L2(3i)< IR9,, (»SL2(3»), IB1* ), < .SL2I35), IR15 )' 
2l*SL2(36)»I'*10)f (WSL2(37)»IH8 1* ( *Sl2 ( 39 ), I ) » ( WSL2(*0i • 1 1 >» 
3I«SL2(»1),I2) 
INTEGER <FF 
1ATA Al-F/.]/ 
C •• ARE ALL FUEO TIME C9NTR9LLERS 9N.LINE 

IF (H6 L 0I (2«IL2.1).E0.SHSKI(?.IL2-1 ) 1 39 T9 890 
C •• CHECK IF ANT UNDER C9MPUTE* C9'(TR9l 

IF <H9 L DI (2»IL2-l).Ea.AFF| Ge T9 890 
C •• SET UP L99P T9 CHECK IF ANY FULLY ACTUATED CBNTRBLlER JBT UNDE* 
C •• C9HPUTER CBNTR9L 

JL2«1 
C •• F9HM .NBT.(H9LD.AND.SE1Si<).AV0.SE^SK AVO CHECK TB SE^ IF A\Y 
C •• T9 00 

830 IF(H9LC( JL2).E'-.0.AN0.SEHSK(jL2).EU.l ) G9 T9 3060 
»B0 IF ( JL?. JE.J21G9 TB 890 
JL2»JL2*1 
G9 T9 >,30 
C •• START tBBP F9R CBJsTDB»N B> CSNTRBlLER INTERVALS 
C •• INITIALIZE FLAGS T9 2E«9 
890 JL2.1 
852 KL2«ICBN»J L 2 
C •• IF THIS C9NTW9LLER UNDER CB"PulER C9NTRBL ANL NST iF-j -ACTUATE J 
C •• G? THRjUGH INTERVAL C9UNTDB»N, ELSE TRY NEAT C9NTO LLF*t 

IF(H9Lj( JL2> .EJ. U.BR.SEHSKI JL2l.E3.0l 39 TB 1»J5 
C •• uP'JATE AjT9F..'i9T. IHBLO.ANj.sEHSKl.ANO-AUTBF 
AJTBF( jL2).0 

CALL UPBYTI 1NT"I,KL2, INTNH) 
INlNL»INTN 1 

CALL PkB<T( INTLI.KL2, INTNL) 
C •• DECREET CBJNTDBWN REGISTER AND CHECK IS INTPRvAL IS CS'P U -TEJ 
CNTDR(«.L2)«LNTUR(KL2)-IDECR 



19 


1 


19 


s 


19 


3 


19 


it 


19 


5 


19 


b 


19 


7 


13 


E 


19 


9 


19 


10 


19 


11 


19 


12 


19 


13 


19 


u 


19 


15 


19 


16 


19 


17 


19 


18 


19 


19 


19 


20 


19 


?1 


19 


22 


19 


23 


19 


?» 


19 


25 


19 


26 


19 


?7 


19 


28 


19 


29 


19 


30 


13 


31 


19 


32 


19 


1 33 


19 


3» 


19 


. 35 


19 


36 


19 


37 


19 


38 


19 


39 


19 


»0 


19 


»1 


19 


»2 


19 


»3 


19 


*4 


19 


• 5 


19 


»6 


19 


»7 


19 


»8 


19 


»9 


19 


50 


19 


51 


19 


52 


19 


53 


19 


5» 


19 


55 


19 


56 


19 


57 


19 


58 


19 


59 


19 


60 


19 


61 


19 


6? 


19 


63 


19 


tk 


19 


65 


19 


66 


19 


67 


19 


68 


19 


69 


19 


70 


19 


71 


19 


72 


19 


73 


19 


7* 


19 


75 


19 


76 


19 


77 


19 


78 


19 


79 


19 


80 


19 


«1 


19 


82 


19 


•3 


19 


8» 


19 


85 


19 


86 


19 


17 


19 


B8 


19 


89 


19 


9' 


19 


11 


19 


92 


19 


S3 


19 


Ik 


19 


95 


19 


96 


19 


•»7 


19 


■u 



124 



IF<CNTDR(KL2).GT.O) 39 T8 1*35 
IR2.0 
1R15»0 
C •• CALL RBUTINE Tt) UNPACK BYTES, HALFWBRC, AND, «9RDS F9R THIS C9»T, 
CALL UNPT 
IR6.16o«L2»16 

c •• get Current interval numbe* and chec* if cbstrslle* has just 

C •• FINISHED ITS LAST GR£E N INTERVAL. IF VES SET FLAG. 

IF( INTN1.E3>(1NTH2.2)I IRIS'1 
C •• TEST IF EQUAL T9 HAX INTERVAL NUMBER 

IF (I.MTNM.EU. INTRH) Q9 T9 1230 

INTNM.INTNM*! 

IR»«IR6*INTNM 
C •• GET INTERVAL DURATI9N VALUE AND ST8R£ IN C8UNT D8hN REGISTER 

CALL UPBYTI INTOI,IR*,INTDU) 

CNTDiJ(nL2)«INTDU 

G9 T8 1**0 
C •• SET FLAG T"j INDICATE C8NTR8LLER INTERVAL C8UNT HAS REACHED -AX. 

1230 INTNM.1 
C •• G£T FIRST INTfHvAL DURATI8N VALUE AND ST8RE IN CBU»T 08*-g RrGISTE 

IR».IRb*INTNM 

CALL UPBYTI lNTDl,IR*,INTDUI 

CMfDR(KL2l«iNTDu 

IR2-1' 

G8 T9 16*0 
1133 CALL PCKT 
1*35 IF (JLc.GE.32) RETURN 

JL2»JL2«1 

G8 T8 o92 
1**0 C9NTIN U E 
1610 C8NTINUE 

G9 T8 16*2 
16*0 INTlS(uL8)«l 

CPABGl jL2)«1 
C •• 
16*2 C8NTINUE 

IADVPI jL2)*l 

IF (ADvNH(JL2).EQ.l ) IADVP(JL2)"0 

*0VNH(jL2)*0 
C •• TEST IF C8NTR9LLER HAS ENDED LAST GRfTN INTERVAL. 

IF (IR15.EQ.1) CPA8S(JL2)»0 
C •• TEST IF THIS C8NTR9LLER HAS EXCEEDED M*X INTERVAL cBuNT 

IF (IR2.NE.1) G9 T9 1*30 
C •• IS tRanSITI»n FLAG SET 

IF (TRNSFI JL2I.E3.0) G9 T9 2160 
C •• IF N8T CLEA* SPl'Y CHANGE FL»G» TRANS! TI9N FLAG/ AND 9FFSFT C H » N GE 
C •• FLAG, SET CIC BYPASS FLAG 

SPLCHUL2) « 

TRNSF(JL21 « 

FSTCFUL2) ■ 

CICBPUL2) • 1 

CALL UPBYT(ENTCYC»<L2»TMP) 

CALL PkBYT(CYCLI«KL2»TMP) 

CALL RTNS 

G8 T8 1*30 
C •• IS BPS TRANSITI9N FLAB SET 
2160 C8NTINuE 

c •• chec< mi, the number bf remaining cycles, is this greater than o 

CALL UPBYT(MII,KL2»MMI) 
IF(MMI.GT.O> G8 T8 2750 
C •• YES GREATER THAN ZERfl. 

C •• C H EC< IF 8PERAT8R SPLIT CHANGE FLAG SET 
IF (SPlCH(jL2).E0.1) GS T8 2?9Q 
261J CALL RTNU 
GB T8 1*30 
C •• CLEAR BPERATBR SPLIT CHANGE 
2290 SPLChijL?) • 
JJ"**KL2-3 

CALL UP3YT(VRINI» JJ/VRNT1 ) 
CALL UPBYTlVRIM, Jj*l,VRNT2) 
IR6.IRo*l 
I1«IR6*VRNT1 
I2»IR6*VRNT2 
C •• STBR£ 8PERATIBN SLPIT INTB W8RKING StBRAGE 
CALL UPBYTiUAwTI#Kl2>SAWTP) 
CALL UPBYT(dBwTI»KL2,G8WTP) 
CALL PkBYTI INTDI.I1«GAiTP] 
CALL P«.8YT( INTDI, I2<GB«TP) 
G9 T8 2610 
C •• DECREMENT Ml 
2750 Mfl.MMI'l 

CALL P«.8VT<MII«KL2»HMI) 
C •• CLEAR 8FFSET CHANGE FL*Q *ND SPLIT CHANGE FLAG. 
C •• SE' CIC BYPASS FLAG 
FSTCF(jL2)«0 
SPLCH(jL2).0 
CICBPl jL2)«1 
IF(MMI.GT.O) GB T9 1*30 
ID«.*M JL2.1 ) 
SB 2751 IJP'l,* 
jNDX«IuX*IjP 
CALL UPBYTi lft, JNOXiTMP) 
CALL P«.BVT(>«RK8FS,jNDX,Ti1P) 
2'bl CBNTlNuE 
C •• TRANSFER N£* DATA T8 wBRKING STBRAGE 
IR6.IR6*! 

CALL UPBYTitNINIf IR6.ENJNT) 
CNTDR(KL2).tNINT 
CALL UPBYT(EN8FI»KL2/ENBF) 
CALL Pk8YT(WRK8I»Kl2#ENBF) 
CALL MoYTS(EnINI,InT0I#IR6»U) 
GB TB 2610 
C •• CLEAR BFFS£T CHANGE FLAG.BPERAT8R SPlIT CHANGE FLAG AND 
C •• TRANSITIBN FLAG 
3060 FSTCF ljL 2) > o 
SPLCHUL2) • 



19 


99 


19 


130 


19 


101 


19 


13? 


19 


103 


19 


13* 


19 


135 


19 


136 


19 


107 


19 


138 


19 


109 


19 


110 


19 


111 


19 


112 


19 


113 


19 


11* 


19 


115 


19 


116 


19 


117 


19 


11» 


19 


119 


19 


120 


19 


121 


19 


122 


19 


123 


19 


12* 


19 


125 


19 


126 


19 


127 


19 


128 


19 


129 


19 


130 


19 


131 


19 


132 


19 


133 


19 


13* 


19 


135 


19 


136 


19 


137 


19 


138 


19 


139 


19 


1*0 


19 


1*1 


19 


1*2 


19 


1*3 


19 


1»» 


19 


1*5 


19 


1*6 


19 


1*7 


19 


1*S 


19 


1*9 


19 


150 


19 


151 


19 


152 


19 


153 


19 


15* 


19 


155 


19 


156 


19 


157 


19 


158 


19 


159 


19 


160 


19 


161 


19 


162 


19 


163 


19 


16* 


19 


165 


19 


166 


19 


167 


19 


168 


19 


169 


19 


170 


19 


171 


19 


172 


19 


173 


19 


17* 


19 


175 


19 


176 


19 


177 


19 


178 


19 


179 


19 


180 


19 


181 


19 


182 


19 


183 


19 


IB* 


19 


IBS 


19 


186 


19 


187 


19 


188 


19 


189 


19 


190 


19 


191 


19 


192 


19 


193 


19 


19* 


19 


195 


19 


196 


19 


197 


19 


198 


19 


199 


19 


200 


19 


231 


19 


202 


19 


203 


19 


20* 



125 



tsvsf:jls) • o 

; •• F6*M STASIA. AND.AUTBF. IF l£*H , NOTHING T9 09 

IF ISTKTA( jL8).Ea.0'8=!.AUTSF( jU21.E0.01 G9 T8 380 
H9LDIJL2) • 1 
CICBP|JL2).1 
CPA6GI JL2U1 
AUT9F(jL2) • 
INTNM.J 
KL2«1C8N*JL2 

CAUL PkBYTi I\Tmi.kl2< INTN") 
CALL PkBYTi I\TL!<«LS» IMNM) 
CALL P«.BYT(STBTIirt L 2»0) 
CALL UPBYT|E\TCYC»KL2»T«P) 
CALL PkSYTiLYCLI.Kl2»T.1P) 
3062 CB^TINuE 
CALL RTNS 
G9 T8 880 



19 


205 


19 


206 


13 


207 


19 


238 


19 


209 


19 


210 


19 


211 


19 


212 


19 


213 


19 


21* 


19 


215 


19 


216 


19 


217 


19 


215 


19 


219 


19 


220 


19 


221 


19 


<f?2 



126 



2. 6. 73 SUBROUTINE PCKT 



R8UTINEI PCKT 



• PCKT 

5J-iR8uTINE t»C<T 

CS^MS* /BLK17/ ADVMlSI . CICBI(B) , C»9GI(8) , 

• IADPIlS) i C<NTDR(124> > CNTNM , IL2 , 

♦ INTfll < 31 ) , INTLK31) • !NT8I(32i , KLl i 
. STBTI(32)» TIMEI(32), QV8KI,69) 

l\T£GEK AMaPljCe.MTI/CMLI/tvcLIjENm.GAABI.QA^TI.SB.TIiSUAPI, 
l&L 4 UI#u1A8I»3ClCl.>:0Q!,QJHHl,Qv8KI»RRPi,STBTI,SABCI.T|r«Ct»TtMEIi 
2T<«1#VGLI»V»TI 

C8"1K8N /8YTL2/ICBN, JL2/KL2/ IOECR. WSL? (50 I 

E'JUf VALENCE (wSL2(l),GA*TP), ( WSL2 (2 I , G6*TP I , 
l(».SL2(4)>INTKg), (WSLJ(S), I*TRM). (wSl?(6I. I^TNm). (lSL2(7>« INT^l' 
2l»SL2<a)»TE*C7| 

CALL PKBrTI I'JT"I.KL2, INTN1) 

CALL PkBVT(I\TLI.Kl2/ IMNL) 

RETURN 

l\0 



80 


1 


20 


2 


20 


3 


20 


u 


20 


5 


20 


6 


20 


7 


20 


8 


20 


9 


?a 


10 


20 


11 


20 


12 


20 


13 


20 


1" 


20 


15 


20 


16 


20 


17 



127 



2. 6. 74 SUBROUTINE UNPT 



BiuTlJf! L\PT 



• JNPT 21 

S./BR9uTI"E UNPT SI 

CS^KBn /8L«.7 /*B3IH6) # INTHIOl) , INT2M31) » 21 

• <CTC( l7)»K3PHl (31 WSTUPFjNQLlSl) 81 
C?iMBN /SL<17/ A0vM(8> < CICBI (81 # CA9GK8) » 21 

• I*DPI(8) , CNTD"H2») i CNTNM , IL2 / 21 

• INTMI(31) , INTLlOll » I\T8I(32i > KL1 , 21 

• STBTH33), TIKEK32), QvBKI(i9) 21 
C9">M6N /BLK18/ C ICT I ( 8 > » CTSDKg) . STBDH8I i 21 

• C9NTK62) , CUR8K31) » CYCtiOli / £NIMI»9*i i 21 It 

• E^9fl(3l) . QAABI(12*I > 5A.TK31I > OBwTIOl) i 2l 11 

• 3LABI(12»> > GMAB1(12»1 > GuABidZd) / INTDIl*96) I 21 1! 

• SABCK12*) j T<iil 131 ) »»RK9K3l> 2i IS 
INTEGER AM9*IjC8NTI»CNTLI»CVCLlfEN|NI,G*ABI»G»«iTI»uB.Tlf5U»Bli 21 1' 

lGLABI»u"IABI»iJClCl«Iia0I»0JRNl,0v9KI|l»RRI,STBTI,SABCI»TE«Ct»TIMEI» 21 1! 

2T<1!»V8LI»V8TI 21 T 

INTEGER *R<SI<ENBF1»CUR8I#VRINI 21 1 

CB1H8N /BYTL2/ ICBNj JL2/ <L2« ! DECR/ wSl? (50 ) 21 1 

ESJIvalEnCE (<(SL2( 1 ),GAWTP)# (USL2(2).GB»TP)/ • 21 1» 

1 ("SL2U1/ KTRj), IWSL2(5)» INTPH), ( WSL?( t ) < |MN« ) , (t>SL?(7), INTNLI. 2 J 20 

21«SL2(8)«TEi«CT) 21 21 

INTEGER GA.TPjGB^TP/TExCT 21 22 

CALL uP8TT(1NT2I»Kl2» INTR2) 21 

CALL UPSYT(1\TM!.«l2» INTRH) 21 

RET U RN 21 25 

EVJ 21 2fc 



128 



2.6. 75 ROUTINE U 



'RBUTlNEI RTNU 



IST2K31) 



C«U>G 



CABQI(«) 
112 

KL1 

stbdmsi 

EMN!(»96l 

3B*TI(31) 

INTDIU96I 



C * *TNU 

SUBRBuTINE RTNU 

C8"IM8N /BL<7 /A8GI(16I # INTHtOll 

• KCTCI i7).k3PHI(31),STUPF,\QL(31) 
CBHM8N /BL<1*/ CLEnG » OTLNG 

• DJMY1 , DUHY2, 

• CNTLI(372I« ENTFL(5), KCLI17). KCTF,i7l, 

• <CSF(17>. NMv*I(31), SHSKKg), 

• VMNIU23) i LNKPT(6*) 
C8HMBN /81K17/ ADVNl(») , C1C6I(8) 

• I*DPIl8) » CNTDR(12*> » CNTNM 

• INTHl(3l) , INTLK31) t !NT8I(32| 

• STBTJ ( 32)» TIMEK32), QV9KI(69) 
C91M8N /BLK18/ CICT I (8> . CTBDK8) 

• C8NT[(62) , CURBIOl) « CVCLK31) 

• EN6FI(31) , GAA«I(l2<t) < 3AWTK31) 

• SLABt ( 12« I i a«A81(12fc) « SUABI<12»> 

• SABCK12*) « TKMK31) «WSKBI(31) 
C •• THE PURP8SE 8F THIS RBUTIN IS TB CBHpuTE THE DIFFERENCE 3EKEE* 
C •• THE PRtSENT C8NTR8LLER 8FFSET AND The OESIRED C8NTRBLLER BFFSET 
C •• AND CBRRECT F8R THIS DIFFERENCE 

ceHn8N/eiTi.e/BiT»R(6itO) 

DI^ENSIBN AUVNH,32,,A8G(32)»APB(32),AUT8F(32I,CICBP(3?I» 
lCICEF(i2) / ClCTF(3a)/CTBDF(3Z)»CH»LF(32)»CP*8S(3Z),FSTCF(32), 
2H8LD(32)»IAl>VP(32)»lNTlS(32>,SEHSK(32l,SPLCH(32) i STBY0(32l. 
3STRTA(32),TRNSF(32)»CICSF(32) 

EQUIVALENCE 
1(A0VNH,BITAK( 1)),{A9G ,BITAR( 331 t j r APS »BITAR( 65)). 
2(AJT8F.3ITAK( 97)). 

1 (C1CBP,BITAR(129>)» (CICEF, BI TAR ( 161 ) I , (CICSF, BI TAR ( 193 1 1 . 
1(CICTF,8ITAR(225) ). (CT8DF,BITAR(257) I. ( CMALF, BI TAR ( 289 I ). 
3 ( CABS. 81 TAR (321) >, (FSTCF/BITAR( 353) I, (H8LD ,BITAR(38S) 1. 
t>(!ADvP.BITAR(*17))«<INTlS.BlTAR<lt*9>l#(SEMSK»BITAR<»8!>)» 
5(S B LCH<8ITAR(513) >. (STRTA, BI TAR( 5*5 ) I. ( STBVD.BI TAR (577 > )» 
6(THNSF,BITAH<6D9>> 
C8MM8N /BYTL2/ICBN, JL2» KL2» IDECR, *SL2 I 5 ) 

INTEGER ADvNH,ABG, AP8 » AUT9F. BPS I F,BTRNF,CtCBP, CICEF. CICSF, 
lCICTF,CT8DF»CMAtF,CPA8(J,FSTCF, jAI,mBlD»SEMS<,SPLCH,STBVD, 
2STRTA,TRNSF 

INTEGER AH8HN,CBNTB<CNTLN,CYCLC,ENIN T ,GAABC,GA«.TP,GB»TP< 
1SLA6C,UMABC,LDSET,QCICT,QQQ,QQRR,Qv8k,RRR,STBTM,SABCT.TE<«CT,TIHE8, 23 
2T<H,VBl»VBT 

INTEGER AHBPI.CBNTI/CNTLl/CTCLl'ENINt.GAABI.UA.TI.iiB.TI.GUABI. 
lGLABI,u1ABI»QCICI,3QQI,QQ«RI,QVBKI,RRR!,ST0TI,SABCI.TE«CI,TIMEI, 
2TK"i, VBL i,^TI 
INTEGER «R<8I,EN8F!»CUR8I 
INTEGER *RK8I,EN8FI/CUR8I,VRINI 
INTEGER CL£NQ,CnTDR/EMAST/STuPF»ENTFl 
INTEGER CURBF,EN8FF»VRINT»wRkBF 
INTEGER CUR*-.»RKF 

EQUIVALENCE (rtSE2(25).CYCLO, ( *SL2(26 ) . NAM6P ) , ( WSL2I 27 ) » 18EPS ) 
EQUIVALENCE (WSL2(30)»AH8PN,H8E1P»HBE2P)» ( *SL"2 ( 32) , IR6 ) > 
1 (*SL2( 33), EPSBF 1 » ( »SL2 ( 3» 1 . IR2 >» <wSL2(35), I R12 ) » ( taSL2 ( 36 ) , I RIO ) i 
2(«SL2(37)«I*5) 
INTEGER <FF, EPSBF 
IR6.6.*L2-5 

CAUL uPBYT(CYClI,<L2»CyCLC| 
CYCLCCYCLC + 1 
C •• SET THE CURRENT BFFSET IN CUR9F AND C8HPUTE THE DIFFERENCE. EPSBF 
C ••• BETWEEN TH HRESENT CBNTR8LLER BFFSET, KCTC(LYCLC), AND THE DESIRED BSl 
C •• BFFSET WRK8F 

CURF.KCTC(CTCLC) 
CALL P<.8YT(CURBI»KL2.CURF) 
CALL UPBYT(iRK8I.<L2."R<F) 
£PS9F.»R<F.tiJRf 
C •• IF THE CURRENT 8FFSET EQUALS DESIRED BFFSET. RETURN TS R8UTJN£ T 

IF (EPSBF. EU.O) RETURN 
C •• TEST F9R NEGATIVE DIFFERENCE 

IF (EPS8F.LT.0) GB TB 880 
C •• TEST F8R LESS THAN 6 SEC8NDS 
IF (EPSBF. LT.12)G9 TB »00 
IRl»«<CLICYCLO-6 
C •• TEST EPSBF LT. | KCL (CYCLC ) -3 SECBNDSi 

IF (EPs8F.LT.IRl») G8 T9 500 
C •• NB» SUBTRACT 8FF CYCLE LENUTH 
EPSBF.EPSBp-KCLI CYCLC) 
♦00 CBNTINuE 
C •• ADD EFSBF T8 COUNT D8WN REGISTER 
*02 CNTDR(KL2)«CNTDR(KL2>*E p S8F 

IF (CURF .3T. KCL(CYCLO) CjRF • CURF . KCL(CYClC) 
CJRF.CjRF«EHS8^ 
CALL PkSYTiLURBI.^.CURF) 
RETURN 
C *• TEST If EPSBF IS GREATER THAm 2/3 KCL(CYClC) 
BOO IRU..66667»<CLICYCLCI 

IF (EPSBF.GT.IRlt) GB TB 5B0 
C •• N9. SET EPSBF EQUAL T9 6 SECONDS 
EPSBF. 12 
1,3 TB *00 
C •• YES, SET EPSBF EQUAL T8 -3 SFC8NDS 
580 EPSBF.. 6 

GB T8 *00 
880 IF (EPSBF. GE. (-6) ) 08 TB 100 
EPSBF. nCL(C"CLC)»EPSBF 
IF (EPSBF. LE. 121GB TB »00 
GB TB 500 
END 



23 


1 


23 


2 


23 


3 


23 


it 


23 


5 


23 


6 


23 


7 


23 


i 


23 


9 


23 


10 


23 


11 


23 


12 


23 


13 


23 


It 


23 


15 


23 


16 


23 


17 


23 


18 


23 


19 


23 


23 


23 


21 


23 


22 


23 


23 


23 


2» 


23 


25 


23 


26 


23 


27 


23 


28 


23 


29 


23 


30 


23 


31 


23 


32 


23 


33 


23 


3» 


23 


35 


23 


36 


23 


37 


23 


38 


23 


39 


23 


to 


23 


»1 


23 


*? 


23 


*3 


23 


»<> 


23 


»5 


23 


»6 


23 


»7 


23 


»8 


23 


»9 


23 


50 


23 


51 


23 


52 


23 


53 


23 


50 


23 


55 


23 


56 


23 


57 


23 


58 


23 


59 


23 


60 


23 


61 


23 


62 


23 


63 


23 


6» 


23 


65 


23 


66 


23 


67 


23 


68 


23 


69 


23 


70 


23 


71 


23 


72 


23 


73 


23 


7H 


23 


75 


23 


76 


23 


77 


23 


76 


23 


79 


23 


80 


23 


81 


23 


82 


23 


B3 


23 


81 


23 


85 


23 


86 


23 


87 


23 


88 


23 


89 


23 


90 


23 


91 


23 


92 


23 


93 


23 


9» 


23 


95 


23 


96 


23 


97 



129 



2.6.76 ROUTINE V 



RBUTInES RTNV 



• RTNv 

SUBROUTINE "TMV 
•• TB APPORTION t«E SPLIT BF THp CRITICAL PHASES 8F an 

• • 3PEPATI6-JAL CRITICAL INTERSECT I8N ACCORDING T8 THE 
•• ME'SuRfcD VEHICULAR DEr'^9 9N THESE PHASES. 

C8^M8\ /BLK7 /A83IU6I » INTHIOl, , 1NT2K31) , 

• <CVC(17>, *3P"I01), ST'JPF, NOLIOll 

C91H9N /BL<13/ 9«Ll259> «C*LP(17> i E8DC » 

. Fl AB, FTB.B, K8EI I (691 
C8"M8\I /8LK1»/ CLENS t DTLNO < C M LNG j 

• 0JMY1 « DUMY2* 

. CNTLI(372l» ENTFL(5). KCLI17). <CTF,l7>, 

• KCSF(i7)/ NMvAIODa S*<S«I(8)< 

• VINIC123I i LM<PT|fc*) 

C91M8N /8LK17/ AOvMlS) . CICBK8) » CA8GM8) , 

• I»OPI(8) , CNTQR(12*) » CNTNM , IL2 i 

• I^TMI ( 31 ) , INTLlOll » INT8K32) i KL1 < 

• STBTI(32), TI1EK32), Qv8<I(69> 

C8"MBN /BL<18/ CICTI(8) » CTDDK8) , STBDK8) . 

• C9NTI162) . CUR8K31) . CVCLK31I # EMMU96) » 

• ENBFIiSi) , 5AA6IH2*) i GA*TK31l . SBwTIOl) . 

• 5LABIil2») , G1AaI<12kl i SU*BIC12»I » INTDI(*96) , 

• S*BCI 1 12*1 i TH1H31) »»RKBI(31I 
C9">MBN /"ISLL/ CICI"-H(8)»LSU(3)/CYC«EF<5) . 
INTEGER CICINH,CTCREF 
C9 -, M8N/8ITL2/BITAR(6»0) 

01 "'ENS I 8n AUvSh(32),A85(32)»4P8l32),AUT9F(32).CICBP(3?l, 
1CICEF( j2l,CICTF ( 32 ) , CT8DF < 32 I , C«ALF (32 I , CPA93I 3? I , FSTCF ( 12 ) , 
2H9L0I32)/ IAUVPI32). INT1S I 32 ) , SEMSK ( 3? > « SplCh ( 32 ) , STByS ( 32 ) » 
3ST-<TA( J 2),T'<NSF (32HCICSF(32) 

ESjIkalENCE 
1 (AJvNh,bITa«( l)),(A8li ,BlTAR( 331WIAP? »BlTAR( 6SI), 
2(AJT8F,81TA«( 971). 

1 (ClCBP,31TA-<(,29l )/ (CICEF.olTA«(lM> 1 1 ( CI CSF, B I TAR (,93 1 I , 
1 |CICTF,BITAX(225) ), ( CT8DF, Bl TAR( 257 ) I, (CMALF, 8 1 TAR ( 239 1 ), 
3(CPAS3/8ITAK(32i ) ), (FSTCF.Bl TAR < 353 ) ), (H8L0 » Bl TAR ( 385 ) ) . 
k( IADVP,BITA«(417> )* (INTlS»olTAR(**9) I, (SEM3K,BlTAR(*8i I). 
5(SPLCH,8ITAK(5l3)).<ST«TA,BITA«(5*bl>, [STBYO, BI TAR (577 ) ) , 
6(TRNSF,8ITAR(609) ) 

C8"n6M /BYTL2/IC9N, JL2*<L2< IDECR. WSL? ( 50 > 

EJUIVAuENCE (NUL/«SL2(1) ), (LSI««SL2(?) ). ( QVBK, -iSL2 ( 3 I ). 
1 (VRINT.*S_2(*))» (LlNK/WSL2(8) ) < (SABcT, «SL2 ( 16 I ) « 
SISAABC, «SL2(20> )< (3LABC»iSL2(2») )» ( GhASC. »SL2 ( 28 I I. 
3(CNTL\,»SL2(32>). I EMNTj -iSL2(33 ) )< < I \T0u, «SL2 ( 34 I )i 
»l<JPH,»SL2(35l ), 

51 vBT, »SL2(3S> )< ( 5UABO »SL2 ( 39 I 1/ 

6 ( IR*/«SL2(34) l» (IR6,»SL2(37| I / ( I Hi «SL2 ( *5 I ) / 

7( I*S#»SL2<»6) l» ( IR3»*SL2(»/I I , ( I RIO' »SL2 ( 48 ) ) » I INC»3. »SL? ( 49 ) ) i 
bl I*11**SL?<90) ) 

01 "ENS 19. 3AABC(4),GLABC(*).'.iHABC(4>,SABCT(4>,;,UABC(4),VRlNT(*), 
1 LIN<(5) 

INTE3E* »D*NH < A9&»AP8»AJTeF # ?|OSIF,eTRNF,CICBF,CICEf' J CtCSFj 
KlCTF,cT80>-'<C«ALF,cPA9(j»FSTLF,3AI/H9LD<SEMS<,SPLCH/STe»C. 
2STKTA.TRNSF 

IMTtGEkc *^8t"M»L»NTB»CNTLN«C.YCLCiENlST,nAABC»liA»TP#oB.TP»3'JAPC# 
liL»OC.v-"ABC<LDSET, ;C!CT/l'3-.TQWRj'3vBn,CRH / STBTM|SAiCT,TE-.CT,TIHEe, 
2I^~/ VSL/VBT 

ImIEGER A*BPI,LBNTI/CvTLl»C Y CLl>ENIM!»'5AABI»ljA.»TI,33..Tl»3U* a I» 
] C.L»bI, j-Aei/.;ClCI»-COI»Qawnl .3V9KI # '«RRI / STBTI,SABCI»Tr»C!iTI1ErA 
ST«iI» VBLI< ^»TI 

IME^E" CLE^'ijt-^TOhf E"*STjSTuPF,tNTF L 

IMEoE-< Cu^BF.ENBFF.vRINT.kRtBf 

!\TEUE>- 'iCA/tiDO/oA/l'o.OCtGAb.GJB 

OAT A o^A/o/»oD"/0/<UOC/0/»oA/o/»o8/0/» 3C/0/»3AB/0/ 

• • if i interval b - -e Start flaj) a^d iSe-Iactuateo Cs^tRsllfRS) 

•• ARE E'j^AL TO ^LRB 
09 500: I 1.1.32 

IF ( I\T1S( 1 1 ] .E:.1.A\D.SL M S<( I I ).E-«1 I 38 T9 5 o0 
33 T8 bOOO 
bbO IST1S( I I) . 

• • IS CIC BTPASS I-LA3 SET 

IFICICnPI II >.E<-.1> (>9 T8 6b0 
•• IS BFF3ET C"asue F L A3 SET 

It (FSTCFI I I I.EC.OI jB T3 b9 1 

• • v;S oST- StT 
6b0 CILBPI ; I ) • 1 

CICTFdll.O 
CICEF(tl).'.' 

ti9 TB 'jJCC 
69 v HL2 ■ (II'ILBM 

CALL UPBYT ( \'JLI»<L2»N'JL1 
IF (M'ji.<EQ'OI «9 TB 5000 
TrST F8R CIC IMHI^ITE- BY t<PT I -UAT 1 9 -i P^-jTI^Ea 
"CALL 3F TBI (tICI\H»«L2» IJ» 1 ) 
1FUJ.NE.0) 38 TB 5000 
.. o vu AC< SPECIAL BYTE ARRAYS ^fe3ec in this sui-rbutine 
Call uKv 

• » \9 IT IS N'JT 

IR».l 

I'R6.16.(<L2«1 ! 

INJaa.lSI 

LI-i.\)l*LSI 
7*0 Call ui-h- (L\tli» ImDxa/ InDxBi 

IF( ^3*B.LT»") GB T8 7bC 

I\3XB«lNi)Xd*l 

CALL UP9YT 1N8EII» INDXB.18EIF) 

IFIMBEIf .NE«0) QB TB 2L10 
750 CSNTIMuE 

1SJXA«1NDXA*1 



2* 


1 


2* 


2 


2* 


3 


2* 


* 


2* 


5 


2* 


6 


2* 


7 


2» 


8 


2* 


9 


2* 


10 


2* 


11 


2* 


12 


2* 


13 


2* 


14 


2» 


15 


2* 


16 


2. 


17 


2* 


IS 


2* 


19 


2* 


20 


2* 


21 


2* 


22 


2* 


23 


2* 


24 


2* 


25 


2* 


26 


2» 


27 


2* 


?i 


2* 


29 


2» 


30 


2* 


31 


2". 


32 


2k 


33 


2* 


34 


2» 


35 


2k 


36 


2» 


37 


2* 


3! 


2» 


39 


2* 


»0 


2» 


*1 


2* 


•? 


2» 


»3 


2* 


44 


?» 


45 


2* 


46 


2» 


47 


2» 


48 


21 


49 


2- 


50 


2* 


51 


2» 


52 


Ik 


S3 


2» 


54 


2* 


55 


2* 


*6 


2» 


57 


2» 


5 8 


2* 


59 


en 


60 


2k 


61 


2» 


6? 


2» 


63 


2» 


6k 


24 


65 


2* 


66 


2» 


67 


2. 


66 


2* 


69 


2h 


7C 


2» 


71 


2» 


72 


2» 


73 


2» 


74 


2* 


75 


2» 


76 


2. 


77 


2. 


/8 


2» 


79 


2» 


80 


2» 


"1 


2» 


t2 


2k 


83 


2» 


4k 


24 


85 


24 


86 


24 


87 


21 


88 


24 


"9 


24 


90 


24 


"1 


24 


92 


24 


93 


24 


9» 


24 


95 


24 


96 


24 


97 


24 


98 


24 


99 



130 



IF( INDX'.Ni'lI") 3B TB 7*0 

IF(CICSF( I I l.NE.ll GB T8 201o 

IF(CT80F(M).NE.l) GB TB SOlo 
CKEFI II) . 1 

IR5. VhlNT(l) + IRt> 

CALL UPBYT(EMNI.IR5,ENINT) 

CALL PnBYT(INTOI#IRS»ENINTI 

IR5»VRINT(2>*IR4 
CALL UPBYT (EMM/ IR5.ENINT ) 
CALL PkBYT ( 1MDI, IR5»EMM> 
C •• CALL jhEEN UEMAND SUBRBUTIME F9R GDA 
1000 GOA.o 

IF(LlNMl)tUT.O) CALL GDSUBIL |MK(1)«GDA) 

IRll-u 

IF(LINM2) .GT.C) CALL GDSUb(LINK(2)» IR11 1 

IF (IRll.GT'SOA) SDA.IR11 
12»0 GDB»0 | * 

IFILIMM3) .ME.O) CALL GDSUB(LIMK(3),CDB) 

IR11-G 

IF(LlNM»).NE.O> CALL SDSU6(LINK<* )# IRU ) 

iFTaOBtGT.iHU) GDB'lRH 
1090 IF (K3PH . UT ■ 0) G8 T8 238o 

IFICICTFIIl l.NE.ll GB TB 1300 

IF(G0A.3T.GLABC(IR»)) GB TB (690 

1R7.IR»*1 

IFIGDB.GT.jLABCl 1R7) > GB TB 1690 
1630 CBNTJMuE 

GB T8 ,= 190 
1650 CICTFl | I I • I 
1690 IR9.GA»BL( IW») 

IR12.'jMABC( IRO) 

]S7.I9»*1 

IR13«3MABC( IR7) 
170U IR10»GD3 

IR11»G0A 
C •• GB TB 2 PHASE SUBRBUTIME 

CALL PSU82UR9, IR1G. IR11 . I R12. IR13 > 
1770 |R9.SAbCT(I«») 

IR12»IS12»IK9 

IR7.VRINT(1> »IR6 

CALL P».BYT( INTUI. I«7, 1«12) 

IR7.IR,«l 

IR9.SABCT(IR7) 

IR13MK13MX9 

IR7.VR1NTI2) *IR6 

CALL PaBYTi INT0I.IR7.IR13) 

GB TB 2300 
1900 IF (GDA.3T. GUABCl IR») I GB TB 1650 

1R7.IR»*1 

IF(GD8.3T. UABC( IR7) ) GB TB 1650 

GB TB BOOO 
2010 CICEF( II) . 

IF(CICTF( ID.NE.l) GB T8 5000 
2080 IF<K3PH . ME . 1 ) GB TB 2190 
2^30 IR5«VRINT(3) * I R6 

CALL UPBYT (EMM, IR5.EMST) 

CALL PpiBYT (INTDI.IR5.EMMT) 
2190 IRb. VMMT(l) «IR 6 

CALL UPBYT (EMM, IH5.EMM) 

CALL PkBYT (IMTDI.IR5.EMNT) 

IR5.VRIMTI2I *IR6 

CALL UPBYT (EMIMI, IH5.ENINT) 

CALL PuBYT I IMTOI. IR5.ENIMT) 

CICTFl II) . 
2300 CALL UPBYT( I MTU I . I»6»l, I MTDU) 

CMTDR (<L2l ■ INTDu 

CMTMM.<L2 

GB TB SOCO 
2380 UCO 

IFILIMM5I.ME.U) CALL GDSUb 1 1 1 MK ( 5) , GDC ) 

1F(CICTF(H l.ME.l) GB TB 266;. 
2520 IFIGLAdCi IR*)tLT«SD*I GB TB 2820 

IR7«IR»*1 

IF(GLAdC( IR7) .LT.GDB) GB TB ?820 

IR7.IR7+1 

IFIGLA6CI IR71.LT-3DC) GB TB 2820 
2640 CBMTINuE 

GB TB 2JoO 
2660 IF (GUABCl IKO)<LT.uDA> GB TB 2780 

|R7.IR«»1 

IF (GUABCl IH7). LT.GDB) GB TB 2780 

IR7.IR7+1 

IF (GUABCl IH7J.GE.3DC) GB TB 5000 
2780 CBMT lMuP 

CICTFl I I) • 1 
2820 IF (K3PH . tO . 1) S6 IB 313o 

IF (K.3PM . HZ . 2) GB TB 356n 

IR11« uOA 

I RIO" GOB 

LjAB.GAABCl IK* 1 

IR9 • GAB 

IR12.G.'ABC( IK*) 

IR7.1R»»1 

IR13.G(-ABC( 1R7) 
C •• 38 T8 2 PHASE SUBRBUTIME 

CALL PSUB2( IR9.IR10.IR11. IM2.IR13) 

GA«IRl2 

GBiIRlJ 

IRll'GbC 

IRIO'GOB 

M9.GAABCI IK7) 

IR13.SMABCI 1R7I 

IR7.IH7+1 

IR12.SABCTIIR7) 
C •• GB TB 2 PHASE SUBRBUTIME 



20 


100 


20 


101 


20 


lot 


20 


10$ 


20 


100 


20 


105 


20 


106 


20 


107 


20 


108 


20 


109 


20 


110 


20 


HI 


20 


112 


20 


113 


20 


110 


20 


115 


20 


116 


2o 


117 


2o 


118 


20 


119 


20 


120 


20 


121 


20 


122 


20 


123 


2o 


120 


20 


125 


20 


126 


20 


127 


2o 


128 


2o 


1?9 


20 


130 


20 


131 


20 


132 


20 


133 


20 


130 


20 


135 


20 


136 


20 


137 


20 


136 


20 


139 


2o 


100 


20 


101 


20 


102 


2o 


103 


2* 


100 


20 


105 


20 


106 


20 


107 


20 


log 


20 


109 


20 


15c 


20 


151 


20 


152 


20 


153 


20 


150 


20 


155 


20 


156 


20 


157 


20 


158 


20 


159 


20 


160 


2o 


141 


20 


162 


20 


163 


2o 


160 


2o 


165 


20 


166 


20 


167 


2o 


168 


2o 


169 


20 


170 


20 


171 


20 


172 


20 


173 


20 


17* 


20 


175 


20 


176 


20 


177 


20 


178 


20 


179 


2o 


1KC 


20 


191 


2o 


1!? 


2* 


1*3 


C 4 


i f c. 


20 


185 


20 


186 


20 


187 


20 


185 


20 


189 


20 


190 


20 


191 


20 


192 


20 


193 


20 


1>»0 


2o 


195 


20 


196 


20 


197 


20 


19g 


20 


199 


20 


200 


20 


201 


20 


202 


20 


203 


20 


200 



131 



C»LL PSUB2(I*9'IR1C<IR11<I*1?<IR13) 

" !F< |R1 J.3T.UD) JR13 ■ 68 
3100 IR12..1AB-IR13 

G9 TB 1770 
3130 M7aM*«2 

IR9.GAABCUR7) 
|R10«3kA6C( IR4I 
IR12.5f l AdC(lR7) 
JB7. I IR7-1 
IRU.ShASCI IR7) 
H13»3LA»GDB»G0C 
IS15»(uDC«IK9)/lRl3 
IR15.1K15/B 
!«15«H15»2 

IF< IRls.LE.IRl2) GB T8 3*40 
IR13.IR9-IR10-IR11 
IF< IR15.LT.IR13) GB T8 3450 
IR7.IR4+2 
IR14.SABCTI IR7I 
IR7.VRIMTO! + 1R6 
IR13.IR13-IK1. 
CALL PkBTTiInTOI. I«7, IR13) 
IR12-IM0 
IR13-IR11 
G9 TB 1770 
3**0 IR15.IR12 
3430 IR7.IR4«2 

IR9.IR9-1R15 
IR14.SABCTCIR7) 
IR15.I«15-]K1* 
IR7.vRINT(3> *IR6 
CALL RkByT (INTDl«IR7»IR15) 
IR12.1k10 
IR13»Iftll 
GB TB 1740 
3560 IRll«GuB 
IRIG'GDA 
IR9.GAABCI IR4) 
IR7.IR»+1 
!R12.Gr,ABC(lR7) 
IR13.GMABC11R*) 
C •• GB TB i PHASE SUBRBUTINE 

CALL PSUo2(IR9« I«10»|Rll»I»l?>IR13l 
GB«IR12 

&A.JR13 

GDCiIRll 

G3A.JR10 

lR13.jrABCllR») 

IR7.IR,*i . 

IR9.Gaa9C(IR7) 

IR7.IR7.1 

P12.SaBCT(1R7> 
C •• G9 TB i. PHASE SUBR3UT1ME 

CALL PSJB? < IR9,IR10,IRll»IRl2»IR13> 

ga»:ri? 

1fiir13.ge.ga) g9 t8 3790 

37B0 |R12»IW13 

3790 IM3«GAABC(IR4) 

IR13«IR13-I«12 

G9 TB 1770 
5000 C9NTINuE 

RETURN 

EN3 



2* 


205 


2* 


206 


24 


207 


2* 


208 


2". 


209 


24 


210 


24 


211 


2* 


212 


24 


213 


2* 


214 


2* 


215 


24 


216 


2* 


217 


2* 


21B 


2* 


219 


24 


220 


2* 


221 


24 


222 


24 


223 


24 


224 


2* 


225 


24 


226 


2* 


227 


24 


225 


24 


229 


24 


230 


24 


231 


24 


232 


24 


233 


24 


234 


2* 


235 


£4 


236 


24 


237 


2* 


236 


24 


239 


24 


240 


2* 


241 


2* 


242 


2* 


243 


24 


244 


24 


245 


2« 


246 


24 


247 


24 


248 


2» 


249 


24 


250 


24 


251 


24 


25? 


24 


253 


24 


254 


24 


255 


24 


256 


24 


257 


24 


258 


24 


259 


24 


2*0 


24 


261 


24 


26? 


2* 


263 


2. 


264 


2* 


265 


24 


266 


2* 


267 



132 



2. 6. 77 SUBROUTINE GDSUB 



■8UTI-.E: COSJB 



C • 3DSjt, 

3JBR9JTI,l j!>Si.B1C\TL\'.0A) 

C3-"->3 . /-<L<1»/ CLE\G , m\3 . C-LN5 

• 3Jf.Yl . 0JMY2, 

• CST L I,i7j,, E-\TFL(b). <CLU7)» KCTP|17), 

• <CSf(i7), V-VMI31I, S1S<IU)« 

• w ■* I >* I i 153) , L^<PT(6t) ' 

Ce^SN /OL^25/ AHCCIUJa)/C^AL{17),C"T»9(?5M< 

• JTTAG(25«) , DISI17) . JMALH17I < D-90E 

• FLTAB(S'JO) , h«r , M90ES , NAI 
*,iS-i L ' SBA *<6 9 " SECFClt). SCUFCm, v9 L I<138) 

C91M8M /BYTL2/KBN,jl2.KL2.IDEC«,WSL2(50) 

EQUIVALENCE («SL2(13),CVCLO 

l\'EiEl. CYCLC.SL2 

I^'EGE* V8Ll»V8L»AhCCI»AHCC»CNTLIiCNTLN»a» 

IMESEh .Sl2 

lVtEQEh C1,C2,L3 

C 122.. 239 09 

3A'A Cl/122/ 

JATA Ctr/21/ 
C<»«" 2SH. 1,001.6a 98 

OATA C3/254/ 
(>••• I 1 4k. i-ELEASE «»Tr J eJ 

CATA IkS/K,/ 

CALL UPh« (AhCL!,C\Tl\,AHCC) 

CALL UPm.. (V9lI.C\TLi\,v8lI 

AhCC.a-.CC/123 
C«"« Ce^PUTE Al * B« 

IA»AHCc«Cl/32 

M'IA/^56 

I CCa.»c!L»KCL<C<rCLC 1/7200 

IB"ICC2«C2/2 
C«*« C9~iPuTE CWSi TER1 

IC46S.ICC2.A-ICL 
C •••• OhPuTE C i B< 

ICMC40S.C3/16 

IC'IC/bl2 
C»»« Cei^UTE SE^AND NVEHICLES) S H„ 

5A»IA»|9»!C 
C.«.« CJlPuTE OE-lA-jf) (SECBMDS) Sbl 

CiA»l,A.|4-i/32 

^ETOSr, 



28 


1 


28 


2 


as 


3 


23 


4 


28 


5 


28 


6 


28 


7 


2o 


S 


28 


9 


28 


13 


28 


11 


28 


12 


28 


13 


28 


1» 


28 


15 


28 


16 


28 


17 


28 


1! 


28 


19 


28 


20 


28 


?1 


28 


22 


28 


S3 


28 


24 


28 


25 


28 


2t 


28 


27 


28 


25 


28 


29 


28 


3; 


28 


3; 


28 


i? 


it 


33 


28 


34 


2o 


35 


28 


36 


23 


37 


2a 


3? 


28 


39 


28 


4*1 


28 


"1 


28 


42 


23 


43 


28 


44 


23 


4? 



133 



2 . 6 . 78 SUBROUTINE PSUB2 



B'JUTI-L! P3J32 



"SOS? 

iRio»iKio/e 

l=Ul«IKU/2 
IRll.Ifcll«2 

I«10.I«10*I«11 

iru«i*ii«2 

If I 1*511 .GT.I«12) GB T8 100 

IR13.IS94IR12 

US TB SIO 
100 IR1C«IK9-IRU 

I-*12«IkU 

IF( IKlu'SEWlS) GB T6 200 

I'12.1r,9-IW13 

GB TB 530 
200 IR13a Irllc 
J03 SiTURM 

EMU 



?5 


1 


25 


5 


25 


3 


25 


« 


25 


5 


25 


6 


25 


7 


25 


5 


25 


9 


25 


10 


25 


11 


25 


12 


25 


13 


25 


1» 


25 


15 


25 


It 


25 


17 


25 


IB 


25 


19 


25 


20 


25 


21 



134 



2 . 6 . 79 SUBROUTINE UPKV 



R'JUTlMEI UPKV 



STBDI(g) 

ENJMl»96> 
GB.TK31 > 
|NTD1(*96I 



• JPKV 

SJBKBUTINE JPKV 

C81MBN /3L*7 /*9GI(16) I INTHK31) , 

. KCTCU7), *3P»H31)» STuPf/ NULIOl) 
C9^MBN /BLK11/ CLENG i DTI.N6 # 

• 0OMY1 / DU1Y2, 

• CNTU(372l» E''TFL!5)» KCLI17). KCTF(17)i 

• KCSF(l7), N"V»ll31li S1SKl(l))» 

• V*IM(123) t L^KPT(6»> 
C81MBN /BLK18/ CICTKS) i CT80K8I < 

. C8NTK62) | CURBK31) l CYCLlOll < 

• EN8FI(31) j G*ABl(l2»> > SAnTIOli > 

• QtABI(12») < G*1ABI(l2<>) > GUA8I(12«> » 

• SABCK12*) i TK1H3J) »v.<jK8I(31> , 
C8->HB\ /BYTL2/IC8N, JL2.KL2. IOECRj *SL2{50> 

I"»TEGEP 3A»BC,UL*BC<QMABC,(.YClC . SA8CT, QUABC, Tv»< 

IMEOE" AM9>'l < CBNTI»CNTlI#tYCLl»ENJN!,<3AABI»GA„Tl,GBi.Tl,3UABI» 

HiL«BI,o"»Bl»GClCI,5Q0I,QaB'<I / QveKI,RRBl,STBTl,S»BCI»Tr«CI»TI M El» 

2TKiI,VBLl»*BTl,v«l\I 
EQUIVALENCE (NUL»WSL2( J I > » (LSI . WSL2I 2) )» OvBk. »Sl2 ( 3 > l« 

1 I VRlNT»»SL2(») )» (LlNK»WSL2(M )» (CVCLC. «SL2 ( 13 ) )« ( SABCT, -SL2 ( 16 ) I i 

2 I G*ABC»»SL2 I 20 I )' ( 31 ABC/ *SL2 l 2» I )« (Qp-A6C» »'SL2(2« I I » 
3(C"<TLNj«SL2I32) )» (ENINT. WSL2< 33) )> < InTOu. «iSL2(3» I )> 
<t ( K3PH, «SL2 ( 35 ) I , ( 0C 1CT, WSL2 ( 36 I ) « 

5(V8T»*SL2(38I ). (UUABO«SL2(39l )/ ( J» «Sl? 1 «3 > ) > ( <« «Sl2< »• ) ) 
DI"INSI8N liAABCCi),GUABC(»)»aMABC(<l),S»BCT(«)<3UABC(»l<VRlSY(»l, 

1 LINM5) 
D8 1 1.1.5 
LINK! I )«0 

1 C8MTINUE 

CALL UPBYT (K3^HI»«L2/K3Ph) 

LS1.6»nL2 

I -LSI 

LSB.LS1.6 

6 I.I.I 

IF( I.uT.LSO) GB TB 7 

CALL UPH.ICNTLl.I/LL) 

IFILL.lT.O) G8 T8 6 

CALL UP9YTIL'«KPTjLL»1» IP) 

IF( IP.uT.») 39 T8 t> 

IF (LINK) IP.l I.EO-0) LINKUP.] l.LL.l 

G9 T8 6 

7 CBMlNuE 

CALL UPBYT (CYCLI.KL2.CYCLL) 
CYCLCCYCLC*1 
J...KL2-3 
08 10 K«1j« 

CALL UPBYT (GAABI/J/:iAABC( k ) I 
CALL UPBYT IGLA8I#J»QL»BC(K| ) 
CALL UPBYT (8MABI»»n3MABC(<>) 
CALL UPBYT ISABCI.J.SABCT(K)) 
CALL UPBYT (GUABI. J#GUA6C(«.) ) 
CALL UPBYT (VRIMIj J»VR.JNT(K) ) 
J.J.I 
13 CSNTINuE 
t.EIjRN 
TNO 



26 


1 


26 


? 


26 


3 


26 


» 


26 


5 


26 


6 


26 


7 


26 


8 


26 


9 


26 


10 


26 


11 


26 


12 


26 


13 


26 


1* 


26 


15 


26 


16 


26 


17 


26 


18 


26 


19 


26 


20 


26 


21 


26 


2? 


26 


23 


26 


2. 


26 


25 


26 


26 


26 


27 


26 


28 


26 


2° 


26 


sr; 


26 


31 


26 


3? 


26 


33 


26 


3. 


26 


35 


26 


It 


26 


37 


26 


38 


26 


39 


26 


<*Z 


26 


»1 


26 


"•2 


26 


»3 


26 


4 b 


26 


»5 


26 


»4 


26 


»7 


26 


l»A 


26 


"9 


26 


S3 


26 


SI 


26 


5? 


?o 


53 


26 


5» 


26 


55 


26 


56 


26 


57 



135 



2.6.80 ROUTINE W 



ijtine: 



■iTN* 

SJ^RSuTl it WT.N* 

I^EGE* AOfPT.AHCC .AHIST.A^TSF.BaGl, , CHSET.CICTF 

| C alF,O->LnG,CMMAL.CvTAB.Cn0!S.CNTLN.C8NTB,CS 

J C-uR9F,CYClC,D .DaY-K.DCF ,DIS »D*ALF, D190E 

j CPT'.I.DS ,0SPA .DTLNG, DTTAB,E.-iAST,ENCLC 

» E*9FF,ENTFL,FLTAB,F iaRK,F"C .F1SCF, FmsyF , FrgYS 

j FP U F ,FS ,FSTFL»UahTP,Q3»TP» GGGG 

i GLABC.GUAbC. MBJFL/H L If5F,HLlUT,M1AST,HBF 

r pat-jm,ptni2,prc»d«pwth.pnTij./ ptn 

3 PTNH2»PT»JB3,PTNa<(,PTNFP,PTN] ,PTN2 .QMAST.QS 

J SBAR .SCCnT.SCDFC.SCSSI.SCS .SCTL*. 

I SE^SK.SHTFL.SLFOP.SlFX .SRDIS.SS ,SSF. .SSSS 

5 Ti)S!Z»TbYTF.,TER-t .ThRSH.TKI , TRDLY, TKNSF, VwlST 

1 VRlNT. »i1AST,,.R<BF 

INTEGER DUMY1.0UMY2»SlC*T .SPACE 
lMTEOE-v «CBUE»«TEST 

INTEGER -iR*»FS.ENTCYC»SPLIT,cYCREF,ClCINH 
INTEGER ADvNH,CICBP.CPA9u,tVTDR/CMTNf-,STBTf/T! IEB.IVBk 
C'-'MB 1 . /M9LUS9/ SURC9M12»l»-iLDSPL(»>, M l08FF u), [GATE^. I 
INTEGER SORBIN. HlDSPL'ULD^F 



C91MB i /niKt 

11AST 

H-1AST 

S^ACE 
CJT'BN /3L<S 

<■< 

SCTL-.1 138l« 



/ F1C 
. J1AST 
, *iaST 
, -P(JRY 
/ DSPA(?») 
. LF0Pn(2) 
SlfDpiH ) 
CS^Sn /3L<12/ DU38). DAY.< 

L^KSIlS) , PATNI(i) 

SLCNT<29),SSF" 
C9T.9.* /BliU"/ CLE^G 

DJMYl, 0u,"ir2, CMLM3721.EN 

<CLU7). KCTFI17), KCSFIWl 

\"HARi31) , SEISMS) 

C9lr9h /3L<lb/ CHSET 

YNUMF / N3 v 'Ch 

NCRj . M1ANP 

\-SCT » \^E0 

\«ESP , NSTMJ 

Ci , OS 

OS , RS 

C9i"-9-. /BL<17/ ADvN-J(S) 

I»OVP(8l / CNTDH(12*I 

^TN-.(Sl) , ITn>T(31) 

STBT^iSg), Tlr.£8(32lj 0Y9<( 
C?">r-B\ /bL*18/ CICTF(j) 

C9STE>(62> » CJR9F<31> 

EN3FF(31! « G5GT<12»! 

jLABC(12t) . G3GG(12tl 

SSSS(l2*) . T<"(31) 

C9TB\ /BL<21/ dptn-i 

HS6UF"(1072)j ^CEF, TE»"(69) 
LB-TIB 1 -. /i\_KZ«/ AH]ST(138). C 

09* I F1TB0 

iLIDT{9b) < NHUAv 

S"TFL, SROIS. T.tRSH, jmISTI 
CB'MBN /oL<Z5/ AHCC(13a), C 

DTTAB(?58l . 0ISU71 

fLTAbiSooi . "RF 

\9FAL. SBAK(69). SECFCI4) 



FMARK 

<"AST 

QMAST 

QCNT 

FPPF 

\C 

JJ» 
PRTFL 

DTLNG 
FL(5)< 

VRINT<]23) 
HBUFL 
NCR22 
NfCTL 
•NPAT8 
TBSIZ 
FS 
SS 

CICBP(S) 
CNTN1 
INTBU<32I 
91 

CT90F,g) 

CYCLC(31) 

GARTP(31 ) 

BUABC|12<0 

«RK8F(3l) 

F*SCF 



1AST[9] 

E-AST 
I-AST 

<9CC 
TRQLY 



SCNSl (?) 
Ci u mg 



LM<PTIh») 

IGP1 

NC.D2 

N"LN< 

NiPb*t 

TBYTE 

NS 

SCS 

CPA8^.(hi 

IL2 

<L2 

STBYDI3I 
E\IM(»9*I 
oB,.TP(31 1 
l\TDJ( k 9£) 

F-SYF 



DIS# DCF. 

FSTFL » HLICF 

PRC90 < PT\(7» 

3^1 

ALI17). C M TAB(2b»li 
DHALF(i7l i D-80E 
19DES / ««l 
SCOFCO), V9LI136I 



IB T9 K'OO 



C9-.N9-J /G2C»~»T/ »R<BFS(12»). !9<12*)/IEA(3] )»EMTCrC(3l l« 
1 CGRP^Sl) 
CB-"-8'j /-iISLL/ C1CIW8>,LSI.<3>.CYCREF(5) 
tB^MB'l /BL<1/ LEV5SF (»], IRAURa 
C81MBN /*C9MN/ «CCCE. -TEST, IR3 
C91MB.J /PT.\C?:V PT\«1, PTMJ2, PTNB3. PT\B4 
Ce-i-9'i /ITRSP/ IS2.IR9.IRl5.il 

01 "E^S I 9 : -. AUT9F (SI.CiALF [8).TRNSF(S I , E'-CLC ( 31 I . ->8Dt ( 1 I 
ECUIvAlE'-iCE (MBDES^BOFI. (LNCLC.ENTCyCI 
iiJIVA L E.CL (A-jT9F( 1 i.ACWNMf?) ) 

£r;uivA L E-.C£ (CalfiI i.cictm?) i 

• SJIVAuE -C5. (TR\SF(1 I.STriYOIJl I 
IF(FMSYF.EJ-O) G« Tb 1 

jj • J 

F-'SYF a 

1RAURL-. . 

CBNTIN1.S 

!F(F-1SC> -E j'-. ) 

CSVTI'.uE 

IF(DCF.VE.l) G? 

CALL ^IBYIlS;, 

CALL )£T^Y( V '90E, Jj*l. ITBYI 

CALL '.lT-j! l^C.'F.Jj.LlTBI.C) 

IF( ITBI.NE.O) G9 T9 102 

1F( ITeY.tG.C) bB TO 7 
t IF( ITdy.ECI ) u9 TO 13 

IF( ITrYtEO.3) j9 TB 5 

G9 T9 7 

C9NTIV0E 

ITSI . C 

LtVSSF |JJ*1 ).0 

!=■( 1T-Y. <E-3l j9 Tb 108 

CALL "TbYIPATN^, JJ.1.2G0) 
J C9M! , L f 

CALL Jt Tpyi J 'ftOE. JJ*1, JTbYl 

IF ( jTbwECj.l ) G» TO b 

IF ( jTbY'LC.2) o9 T9 7 
) CS^TIuE 



T9 



0) 





22 


1 




2? 


? 


.CLENG. 


22 


3 


,CT»0F, 


tz 


* 


,D9» . 


Zi 


5 


,EMNT. 


22 


fc 


,F'T9D. 


22 


7 


,5'JCT , 


22 


8 


,HSPUF. 


22 


9 


.PTNB1. 


22 


10 


,RS . 


32 


11 


■SECFC. 


22 


12 


,STBYO. 


22 


13 


, V8L » 


22 


It 




SS 


15 




Zi 


16 




zz 


17 




zz 


IB 




zz 


19 


3BTEM 


22 


20 




22 


21 


. 


22 


2? 


. 


22 


23 


J 


22 


P* 




22 


25 


. 


22 


26 


# 


22 


27 




22 


28 




22 


29 


. 


22 


30 




ZZ 


31 


. 


ZZ 


32 




22 


33 




22 


3» 




22 


35 


, 


22 


36 


. 


22 


37 


. 


22 


3« 


. 


22 


39 


. 


22 


»r> 


. 


ZZ 


»1 




?2 


»2 


. 


22 


"3 


. 


ZZ 


»» 


. 


ZZ 


»5 




ZZ 


»6 


. 


zz 


»7 


. 


zz 


»8 


. 


s? 


»9 


. 


z? 


5? 




22 


51 


, 


2? 


5? 




22 


53 




22 


5(* 


. 


22 


55 


. 


ZZ 


56 




ZZ 


57 




22 


5 s 


. 


ZZ 


59 


, 


zz 


6? 




zz 


61 


PLIT(12»| 


. zz 


6? 




22 


63 




22 


6» 




ZZ 


65 




ZZ 


66 




ZZ 


67 




22 


68 




ZZ 


69 




ZZ 


70 




ZZ 


71 




22 


'Z 




ZZ 


73 




ZZ 


7» 




zz 


'5 




zz 


76 




zz 


77 




zz 


70 




zz 


79 




zz 


HO 




zz 


81 




zz 


1? 




22 


«3 




22 


"» 




22 


»5 




22 


"6 




22 


«7 




22 


KB 




22 


H9 




ZZ 


90 




ZZ 


91 




ZZ 


9? 




ZZ 


93 




ZZ 


Ik 




ZZ 


95 




ZZ 


96 




ZZ 


97 




ZZ 


98 




ZZ 


99 



136 



CALL PT2»<lSQ,JJ*1»1 ) 
LEV5SFI Jj*l)«l 
7 CB^TINuE 
1R3 • FMTBD 

CALL QETBY< JSPA, IR3*i, ITMP) 
C»LL PTSYID^TN.i, JJ»1,ITMP) 
C9"JTlNuE 

CALL 3tTBV(f ATNM, JJ+1, LTBY) 
CALL SETBY(UPTNMtJJ+ljKT8Y) 
IF(KT8YiNE.LTBV| SB TB 61 
CALL &fcTBY(19DE. JJ+li 1TBY) 
IFt ITBY.NEiO) 39 TB 2 
JS T6 S3 
[ C9NTIWuF 
OCf • l 
I?ADRD.l 
MASTt.iiASTl • 2 
•>C"QE . 2 
CALL nS'JB 

£3"(9R EXIT FUB* hEAD^Ci RAO AT 411 
IF (»TfcST) bl 1 » 10b6#iOOO "' 
CB^Tl^uE 

;c f ■ .. 

CALL jfcTaY(SC».at»Jj*2#iMS!) 
CALL Jt TdY(bCNSt» JJ*1»N"SI ) 
»b \-<SI » \iSI ♦ 1 

CALL jf TaYfSCC'.TiNMSIiSNI 

CALL PTB1 (CICI^HtN-M, 1 ) 

CALL PTH1 (HLDSHLiN\.3/S) 

CALL °TBI (hLOB*F»N\,0«0) 

IF(\y,Sl .LT> ^SIjGB TB »5 

11 ■ •■ 

jl • 3 

Jl* ■ 

CALL IhTHP(O) 

CALL 3ETBYlNC/JJ»l/NCBJJ) 
i C8MTINUE 

CALL GETBYt^TN, JU..1 # PTN81) 

PTN61 • PTvBl . 1 

jl» • jl» ♦ 1 

CALL iET8Y(PT\, JU«1 , PTN82 ) 

JI» • Jl* ♦ 1 

CALL jETBY(PTN, JU*1.PTNB3) 

CALL PTBY (E^8FF»PTNB1*1»PT\S3) 

Jl« ■ jl* * 1 

CALL GET8Y( PT=»/ JIt*l» !DX) 

CALL 5ETBY(CYCREF/ IOX*l » PTNBi, I 

CALL PTBY(CYCLC,PTsBl»ljPTNB«) 

CALL PTBY(EMCLC,PT jBi*1jPTMB4) 

SSSStPT"-Bl.l ) • PT-UI+2) 

!)3li(«(PTNBl*ll • PT.(JI*3) 

QSBTlPTNBltl) » PTMJIi*) 

CALL PTBY(TK"»HTN8l*l/PTM JU«I ) 

P\T1* > t.PTHBl 

09 tl k • 1' * 

EMNT(PNT1<(*1) • °TN(JI»5) 

P\T1» • PNT1* ♦ 1 

Jl • Jl ♦ 1 
» C9NTINi,E 

jl • J! ♦ * 

IF(PTNl-2^E»0) SB T6 41 
? C9^TIiuE 

II ■ II ♦ 1 

Jl*.»»jl 

1F( II.oT.NCBjJI 39 Te 11 

S9 T9 »3 
I C9NTI\uE 

u'JABCIPTNBl + 11 . PTN(JNI) 

CALL 3ETrtY(l>UAt)C(PTNBl»l 1/ *, BA3U1 

CALL PTtU (CT90K.PT\Bl«l/8«tBU, 1) 

oLAbC(PTNBl*l ) • PTMJI*2) 

Jl»JI+7 

u 9 T9 .2 

CALL 1 mTHPH I 

CALL HALFIL^KSI, JJ*1,LSI1 ) 

CALL haLF(l^kSI/JJ*2»LSI2) 

LSI2 • LSI2 • LSU 

IFtLSl?iLT.l) LSI2.1 

lI ■ 2«Jl 
i CB^TIMUE 

CALL MALF(SCTLN,LSI1+1» JL) 

CALL HALF(PT"J»L!*1» IPTNH) 

CALL PTHLF lYHIST< JL+1/ IPTMH) 

Ll.« LI ♦ 1 

CALL *ALF(PT\,L!*1»JPTNH1 

CALL PTHLFt AhlST* JL*1» JPTN") 

Li ■ LI ♦ 1 

LSU ■ LSII * 1 

LSI2 . LSI? • 1 

IF(LSI2iuTiO) u9 Tb »6 

CALL itTBYIbCNSIi Jj*i» ISC1 I 
bi. CS^TlNuL 

CALL 3fc,TdY(SCNSIi Jj+2, 1SC2) 

ISC? . ISC2 • ISCl 

S3 51 I I.1.ISC2 

CALL SET8Y(SCCNT»ISCl*lI«ICN| 

CALL paT3E\T(IC\»ii 

CALL d KBYT(IEAjICN*1,0) 
SI C9NTI>»uE 

CALL &ETbY(0-.9wF» Jj*l» JTBY) 

IFt JTSt.EQ.O) uB TB 2 

CALL ot T BY("BDE .Jj*ljIT8YI 

IFt IT8Y.EC0) J9 TB 111 

OB 52 k • 1< ISC2 



22 1 


30 


22 1 


01 


22 1 


OS 


22 1 


3 


22 1 


0* 


22 1 


05 


22 1 


06 


22 1 


17 


22 1 


0« 


22 I 


^9 


22 1 


10 


22 I 


11 


22 


12 


22 I 


13 


22 


1<I 


22 


15 


22 


It 


22 


17 


22 


IS 


22 


19 


22 


?0 


22 


21 


22 1 


22 


22 1 


23 


22 I 


2« 


22 1 


25 


22 I 


>6 


22 1 


27 


22 1 


28 


22 1 


29 


22 1 


30 


22 1 


31 


22 1 


32 


22 1 


n 


22 1 


3* 


22 1 


35 


22 1 


36 


22 1 


3 7 


22 1 


3 8 


22 I 


3 9 


22 1 


»0 


SB 1 


M 


22 1 


*2 


22 1 


»3 


22 1 


»': 


22 1 


»5 


22 1 


» 6 


22 1 


»7 


22 1 


»! 


22 1 


»9 


22 I 


50 


22 1 


51 


22 1 


5? 


22 1 


53 


22 


5ft 


22 


b5 


22 


be, 


22 


57 


22 


SB 


22 


59 


22 


60 


22 


61 


22 


62 


22 


5? 


22 


6 It 


22 


65 


22 


L66 


22 


167 


22 


68 


22 


69 


22 


L70 


22 


171 


Si 


7? 


22 


n 


22 


L/» 


22 


.7? 


22 


.76 


22 


177 


22 


17B 


2? 


179 


22 


.80 


22 


I'l 


22 


IK? 


22 


S3 


22 


fU 


22 


85 


22 


h6 


22 


B7 


22 


38 


22 


HO 


?Z 


°C 


22 


191 


22 


192 


22 


193 


22 


19» 


22 


195 


22 


196 


22 


197 


22 


19! 


22 


199 


2c 


5no 


22 


201 


22 


?02 


22 


203 


22 


20* 


22 


2-15 



137 



CALL SETBYlSCCNT, !SCl«l, IC-J) 
CALL PTBI (TM\SF.IC\*1i1,1) 
ISCl . ISC1 ♦ 1 

52 C9NTl\uE 
ii9 TB 1 

111 CBiTI\uE 

33 5» K.l/ISC? 

CALL GcTBYlSCOT, I SCI *1 . ICN) 

CALL 3ETBI(C"iA t F,ICN*l»<CN#ll 

IF(KCNiNE«0! SB T9 S3 

CALL PTBI <AUT8F,IC«1»1,1> 

53 C9NTJ.NI.E 

CALL PTBI (CICINH, ICN*1#0<1 1 

CALL PT3] (STBYD, ICN*1»0<1> 

ISCl • ISCl ♦ 1 
5» CB^TlNut 

i CSNTI^uE 

CALL PT8K "CD* i Jj*l/ 0»0> 

CALL SlTBY(U18UE«JJ*1»JTiJV) 

CALL PTBr(,i»DE» JJ*1» JTBY) 
13 CB^TInuE 

CALL &ETBY(UPT\M,JJ*l,KTBYI 

CALL PTBY (HAT\M« JJ»1,KTBY) 

IF(SSF»»EC»OI o9 TB 131 

SSF„ • 

F1SCF • 

MAST (» -AST) . c 

09 T8 1J00 
1J1 CSNTInuE 

JJ • Jo ♦ 1 

IE( JJ.tE.NSTri ) G9 TB 101 

FYARK , o 

IFIFPPh t JTtO) FPPF • FPPF • 1 

FISCF.o 

MASTUmAST) • c 

a; tb looo 

; E^BR EXIT f»8"' READING RAO 
611 CS^TlMbE 

p-.aSTIQi-AST) • 1 
SHTFL . 1 
IOOl C9NTI « U E 
rETLR.'l 



22 


206 


22 


207 


22 


208 


22 


209 


22 


210 


22 


211 


22 


21? 


22 


213 


22 


214 


22 


215 


is 


216 


22 


217 


22 


218 


22 


219 


22 


220 


22 


221 


22 


22? 


22 


2?3 


22 


224 


22 


2?5 


22 


226 


22 


227 


22 


228 


22 


229 


22 


230 


22 


231 


22 


23? 


22 


233 


22 


23« 


22 


235 


22 


236 


22 


237 


22 


238 


22 


239 


22 


240 


22 


241 


22 


2*S 


22 


2"3 


22 


244 


22 


245 


22 


246 


22 


247 


22 


2»8 



138 



2.6.81 SUBROUTINE INTRP 



RBUTtNt: IMTKP 



• • 


INTRP 






t 


SUBK8UT1 


ME I'jTRP(I) 


• 


I • 




UISABLE INTERJPTS 


«. 


■ 1 




ENABLE I^ERUPTS 


• 










DEF 




INTRP 




REF 




9SETURM 




RES 




1 


! 


RES 




1 




D»Ta 




3 


PTiPi 


RES. 




1 


IN.TKP 


RES 

Ll.3 




1 




HAL, 6 




9S£Tl^ 




GEM, 8. 


2« 


l'l 




ST»,15 




PTi"Pl 




Lw,3 




• I 




BGZ 




ENABLE 




Ll.l 




X'lOOJ' 




hD»l 




X'1502' 




B 




•PTMP1 


tNABlF 


RES 









Ll.l 




X' 1000' 




WO.l 




X'l»02' 




B 




•PTMP1 



SET INTERuPT FLAG 

BRANCH TB EUAHLE INTeRUPTS 

OlSABUE IMTERUPTS 



E>vAhlE: INTERUPTS 



19 


1 


19 


2 


19 


3 


19 


k 


19 


5 


19 


6 


19 


7 


19 


8 


19 


9 


19 


10 


19 


11 


19 


1? 


19 


13 


19 


It 


19 


15 


19 


16 


19 


17 


19 


15 


19 


19 


19 


20 


19 


21 


19 


22 


19 


23 


19 


2"* 


19 


25 


19 


26 



139 



2.6.82 SUBROUTINE PATGENT 



R'JjTlNt: patient 



• "AT3FNT 

SJBR9JT1NE PATUENTl INT) 

! \TEG£" ASTRT ,AE>>D 

] BSTRT ,BENO ,BI 

p C» ,CSTRT ,CEND 

3 E.-JL.AC ,E-.*CPi tENUBC 

U SJMT .SU^AC ,SA 

5 STRTic. ,ST«CMl ,T68FF 

h VARAT »VA«8T /VARCT 



.ATNE «AEN P1 «ASM1 ,A a cTTME»A9FF 

,BTImE .BENOPl ,BSMi ,B8FF ,CLC 

.CENBP1 iCS^l ,C8FF ,DEL . 

.E^BCPl *ST ,SuMTA ,SuMTB .SUPTC 

.Sb ,S2T ,SC ,STRTAC .STACMl 

,TC9FF .TA8FF .VARA ,VARS ,VARC 
,CTIM E 
'9m /i2c»NT/ -*rk9FS(12»>« 18(12*)< !EA(3l UENTCYCLCI31), 
S^LIT(12»)» CIjRPN(31) 



S^LlTiia*)* Ct>RPN(3l) 
C9MM8N /PATN3/ ABCSTRTll21)»ABCENDll2»),BIAS<3l),DELTr3l )i 

S v| TABC(ia»).SABC( l?»)»SU"ACBC(3l ) 
C9~iMB'J /BL<' /ABullU] < INTHJOl) , INT2K31) » 



<LTC<17), *3PH(Jl), STUPF, NQLOl) 
C9"^8N /BL<H/ CLE*G , DTLNG 
• 3JhYi, au-irj, CNTL>M372),ENTFl<5), 
. <CL(17). <CTF(17). KCSF(17) 



NMVAR(31> / SE1SKI8) , VARINTI123I < LKPTRI6A) 
CBll-'Bi /BL<H/ CICTF(S) , CT60F(_8) i STBY3ISI , 

• C0NTB(62) > CURBF<31> , CyCLC ( 31) i ENTRvINT ( %96 ) » 
•EmTRYBFF(31 > < UGGT(12») , GAwTP(31) . l,BhTP(3l> « 

• GlAbC(12») , G3GG<12») , GUAbC<12<>> , INTDJ<»96> , 
. SSSS(l2»I , T<M<31> . WRKBFl31> 

PURPOSEC PATUE^T USES THj FSLLBWING ARRAYSO 

AoCSTRT .. A/8/C PHASE START INTERVALS 

Ai-CENC .- A/B/C PHASE END INTERVALS 

£™TCYCLC .. CYCLE LENGTH C8DE 

ENTRYINT .. INTERVAL DURATIONS 

E^TRY8fF .. BFFSET 8F THE FIRST INTERVAL 

I.THI .. LAST INTERVAL IM THE CYCLE 

<LL • - CYCLE DURATI8N6 

KjPi .- C0NTR8LLER Type ;:,1,2,3 

VaRInt .. A/B/C PHASE VARIABLE INTERVALS 

TB COMPUTE VALUES FBR THE F8LL6WING ARRAYSO 

BIAS(Sl) •• TIME F" START 8F A PHASE TB INTERVA 23 

UELT(DEL) .. LAG TIME F8R 8VERLAPPIN3 PHASE CBNT 20 

Ib(A8FF,B3FF,C6FF,IF8T).. A/B/C PHASE 9FFSETS, PHASE 8RDE* C* 20 
SA8C(SA,Sd,SC) .- A/B/C PHASE FIXED TIMES 20 

SMABC(SLI"TA,SUMT8 < SU1TCjSU«T)-. L8ST TIMES IN PHASES AND CYC 20 
SPLIT|ST,B2T) .. A PHASE AND C PHASE SPLITS 20 

su'-ucaci sumac, sumbc) .. sum sf fixed intervals in svfrlappj 20 

20 

INT . INTERSECTISN NUMBER 

INTERVH . THE LAST INTERVAL IN TH£ CYCLE 

ASThT • A PHASE START INTERVAL 

AENo • APHASE ENj INTERv'L 

VARA • A PHASE VARIABLE INTERVAL 

BSTRT • a PHASE START INTERVAL 

BEND ■ B PHASE E^C INTERVAL 

VAKB • B PHASE VARIABLE INTERVAL 

LLC • CYCLE LE*vGTH CODE Of THE INTERSECTION 

Cy . CYCLE LENGTH 9F ThE INTERSECTS 
CALL GfcTBY(INTHl,I »T, INTERVH) 
IP9SN • *.(INT-1 ) ♦ 1 
CALL UtTnY(ABCSTRT, IP8SN,AST«T) 
CALL jiTBY[ABCEND, IPeSN.AENU) 
CALL 3tT'JY(VARlNT, IPuSNWARA) 
VARA • VARA ♦ 1 
IPOS'. • »•( INT-l ) * 2 
CALL GETBY(A3CSTRT,IP9SN,BSTRT) 
CALL jETBYiabceno, JP9SMiBENt)) 
CALL 3ETBY(VARINT, 1P3SN, VARBl 
VARB ■ VAR-i * 1 
CALL GETUY(tNTCYCLC»INT,CLC) 
CY'KCLlCLC.l ) 

INITIALISE VALUES 6F THE SMTAbC, S-ACBC, L^LT 



Su~lTA 

5JMTB a J 

su-nc > 
Sjmt « 
SUMAC . 
DEL • 
IF8T • 
S2T . .- 

ATIKE • 

BTI 



20 

20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
IB, AND SFLIT AR 20 



TIME FM START 8F A PHASE TB END 9F A PHASE 

- TI"E FM START 8F B PHASE T6 E'-O OF B PHASE 

VARAT • TIME BF A PHASE VARIABLE INTERVAL 

SA . A Phase FIXED TIME 

varbt • time bf b phase variable interval 

sb . b phase fixed time 
call sr int(int,astrt,aend#atime) 
call s- ImT(Int,bstrt,bend,bt[me) 
ip9sn • 16. (int. ii ♦ vara 
c»ll 3etby|entrylnt, ip9sn.varat] 
sa • atime • varat 
i°bsn • 16«<int -ii ♦ varb 

CALL jETBYIENTRYINT, IPBSN.VARBT) 
SB • BTIME • VARBT 

BIAS IS THE TIME FR8M THE START 9F THE A PHASE To INTERVAL 1. 

BIAS IS :.»N.Z E Rg ftH£N THE A PHASE D9ES N6T START AT INTERVAL 1 

AND VARA < VARb. 
BI • 

If(AST«T.E!«'l) GB TO 10 
CALL Sr INT( INT.ASTRT, I\.TERvH,B[ ) 
C9NTI,N„E 

AENDP1 A'.'J BtNOPj ARE THE INTERVALS AFTrR AENO A ,0 HEN3 RFSPECT! 20 
AENQPl • AENO ♦ 1 g0 



8 
9 
15 
11 
12 
13 
11 
15 
16 
17 
18 
19 
20 
21 
22 
23 
20 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3» 
35 
36 
37 
38 
39 
"0 
"1 
»2 
»3 
»d 
*5 
06 
»7 
»8 
»9 
50 
51 
52 
53 
5k 
55 
56 
57 
58 
59 
60 
M 
62 
63 
6* 
65 
66 
67 
68 
69 
70 
71 
7? 
73 
7» 
75 
76 
77 
78 
79 
80 
"1 
82 
83 
8* 
85 
86 



19 
9P 
91 
92 
93 
9» 
95 
96 



140 



IFIAENOPI.LE^INTERVH) 08 T» ? 
AENDPl • AENDPl . ISTERVH 
BENDP1 • BEND + 1 
IFIBEN'DPl.LE. INTERVH) G9 TO 21 
BENDP1 • BENDP1 • INTERVH 

»S"1 AMD OSMj ARE THE [NERVALS PRECEDING ASTRT *s,t> BST^T RESPE 
aS"I1 • ASTRT • 1 
IFIASM) .liE.l ) 08 TB 22 
AS-il • ASM1 * INTERVH 
bSll • 8STRT . l 
IFiBSHi. JE.l) a» TB 23 
BSll > BS*1 ♦ INTERVH 
CSNTINoE 

»3Pmt • THE VALUE OF K3PH FOR THE INTERSECTIBN 
CALL SETBY(K3PH,INT»K3PHT) 
IF(k3PhT.N£»0) GB TB »0 

THE FALLOWING CalCULATIBNS ARE FB« A <3P« ■ TYPE C9NTR9LLE* 

Sl/MTA • L»ST Tl-lt BETWEEN A AND 6 PHASES 
IF(AENiPl.EU.BSTRT) SB TB 30 
CALL Si. I NT ( INT»AENJP1«BS^1/St;-1TAI 

SLMTc . L»ST Trt BETWEEN 3 AND A PHASES 
IFIBENJPI.EJ. ASTRT) 59 TB 31 
CALL SMNT( INT.BENuPl.ASMl.SjITB) 

SUMT • ThE T9TAL L9ST T1"E IN THE CVCLE 

•BCTME • The T9TAL PHASE TIME IN a CYCLE 

ST . A PhASE TME TIfES 1030 / THE T9TAL PHASE T I »E 
SJ^T . CY . ATImE - BTI1E 
aBCTIme . CY . SUIT 

st • atime«i;o;/abctime 

VARC ■ 
SC ■ J 

IFBT.0 IF THE A PHASE VARIABLE INTfP v AL PRECEDES THf ti PHASE V»R 
IF9T • 
IFIBSTkT.NE.l 1 GB TB 80 

IF9T.1 If THE B PHASE VARIABLE !NTfPvA L PRECEDES THE A PHASE VAR 
IFBT . 1 
BI»U 
GB T9 hO 



*1 
*2 



C. 
Ci 
Ci 

C. 
C.»»< 

c... 
c... 



50 
SI 



56 
57 

SB 

C 
C.n 



1*2,3 TYPE CfNTRBLLE^S 



CALCULATIONS F8R <3PH 
CONTINUE 
IP3SN > *«(INT«1 ) .3 

CSTRI ■ THE C PHASE START INTERVAL 

CEND • THE c PHASE END JnTfRvAL 
CALL GETt)Y(ABCSTKT, IP8SN, CSTRT ) 
CALL UETBYlAHCEND, IPBSN.CEND) 

CENDP1 • THE INTERVAL F9LL9"ING CEnD 
CENDPi .CEmD ♦ 1 
IF(CENDPl.LE.INTERvH) G8 T9 »1 
CENDPI • CENDPI • INTERVH 

CSH1 • ThE INTERvAL PRECEDING CSTRT 
CS" 1 ! . CSTRT . 1 
IF (CSf 1 .CE.l ) J8 T9 *2 
CS"H • CSMi ♦ INTERVH 
CBNTI'J^E 

CTML • TH£ TIME BF C PHASc 
CALL Si INT(INT,CSTKT,CEND/LTIME) 
G9 T8(<i5»6u»70)»K3PHT 

THE F9LLBWING CALCULATIBNS ARE F9R A K3PH ■ J TYPE C9NTRBLLE* 
SU^T • L8ST TIHf DjRIM TH t CYCLE 
ABCTIiE • THE TBTAL PHASE T I ME IN the CYCLE 
ST • TH£ A PHASE SPLIT 
S2T • THt C PHASE SPLIT 
VARC • C PHASE VARIABLE INTERVAL 

VARCT • TH£ TIME LENGTH BF THE C PHASE VARIABLE INTERVAL 
SC . C PHASE FIXED TIME 
SJiT ■ CY - ATIrE • BTIME • cTIME 
A3CTIHE . CY . SUHT 
ST • ATIHE#l?Ou/ABCTIME 
S2T • CTlHE'lOOO/ABCTlHE 
IP3SN • 4.( INT-1 ) ♦ 3 
CALL GETBYIVARINT, IP8SN»VARC) 
VARC • VARC ♦ 1 
IP3SN • 16. (INT. 1) ♦ VARC 
CALL CiETBYlENTRYlNT. IP9SN,VASCT) 
SC . CTIHE - VARCT 

IF ThE Phase BRDER IS ABC C9NTINUE 
IF ThE PHASE 8RDE" IS ACS G8 T8 55 
IFI VARb.GT.VARC) G6 T9 55 

IF9T.0 IF THE B PHASE VARIABLE INTERVAL PRECEDES THE C PHASE VAR 
IFBT . 

LBST TIME BETWEEN A T9 Bi B T8 C. AND C T8 A PHASES ARE CBMPUTED 
AS S„MTA, SU M TB, AlvD SUHTC RESPECTIVELY 
IF(AENu p 1iE:J>BSTRT) G8 T9 50 
CALL SrlNT( lNT»AENGPl»bS11#Su1TA) 
IFIBENjPl.EU. CSTRT) G8 TB 51 
CALL SMNT(1NT < BEN0P1.CS11/SJMTB) 
IFICE'JlPi.EU.ASTRTi UB T9 56 
CALL Si INTc I->IT,CENDP1»ASH1,SUMTC) 
G9 TB 3 8 

IFBT.l IF THE C PHASE VARIABLE INTERVAL PRECEDES ThF B PHASE VAR 
IFBT . 1 

LBST TIKE BET.EE'v A T9 C» C T8 8. 6 TB A PHASES ARE; CBIPuTED 
AS Sl-XTCi SlTTA, AMD SJMTB RESPECTIVELY 
IF(AENLPl'EU.CSTRT) 38 TB 56 / 

CALL SMlNT(lNT»AENOPt»CSHl»Su"TA) ' 

IFICENDP1.EU.BSTRT) 88 T8 57 
CALL SHINT(lNT»CENDPl»BSMl«SuMTC) 
IF(BENLPl.EU.ASTRT) GB T8 58 
CALL SnlNT(lNT«BENDPl/ASMl,SuHTB) 
CBNTINuE 
G9 T9 80 

THE F9LL8"ING CALCULATIBNS ARE F9R A «»H • 2 TYPE CBNTRBLLE* 



S3 


99 


20 


105 


20 


101 


20 


102 


20 


103 


20 


10* 


20 


ns 


20 


106 


20 


107 


20 


108 


20 


109 


?i 


110 


20 


111 


20 


112 


25 


113 


2^ 


110 


s; 


115 


20 


116 


23 


117 


20 


118 


21 


119 


20 


120 


20 


121 


20 


122 


20 


123 


2J 


12* 


20 


125 


20 


126 


20 


127 


20 


128 


20 


129 


20 


130 


20 


131 


25 


132 


2 


133 


20 


ISA 


20 


135 


20 


136 


20 


137 


2 


13" 


2: 


H9 


20 


1*0 


20 


1M 


20 


1*2 


20 


1*3 


20 


1«« 


20 


1*5 


20 


1*6 


20 


1*7 


20 


1*8 


20 


1*9 


20 


150 


20 


151 


20 


152 


20 


153 


20 


15* 


20 


155 


20 


156 


20 


157 


20 


158 


20 


159 


20 


160 


20 


141 


20 


14? 


20 


143 


20 


16* 


20 


165 


2D 


166 


20 


167 


20 


168 


20 


169 


20 


170 


?c 


171 


20 


172 


20 


173 


2C 


17A 


20 


175 


20 


176 


20 


177 


20 


178 


20 


179 


20 


180 


20 


181 


20 


182 


20 


193 


20 


in* 


20 


155 


20 


116 


?0 


187 


20 


183 


20 


1«9 


20 


190 


2C 


191 


2. 


192 


2 


193 


2 


19* 


20 


195 


2C 


196 


20 


197 


20 


198 


20 


199 


2 


200 


2J 


201 


20 


202 


20 


203 


8(1 


£00 



141 



71 
72 



continue 

if astrt • cstrt. the start 8f the a/c phase • astrt. 

IF CSTRT IS <6«. VARA, TM£ START SF THE A/C PHASE • ASTRT 
ST*TAC ■ ASTRT 
. STACl-1 • STRTAC MINUS 1 INTERVAL 
STACMJ . AS11 

IF(aSTKT.El.'>CSTBT) 39 T8 62 
IF(CSThT.LL'VAWA) 38 TB 61 

THE FBLIBMMj E31.ALITIES H8LD »HEN The a/C PHASE BE5HS .ITH CST 
SHTAC ■ CSTRT 
STACH1 . CS*1 

IF C PHASE LEADS A PHASE ThEN DEL • DEL ♦ 1?S 
CALL SM'.Tl INT. CSTRT, ASH1.DED 
DEL . DEL ♦ l?s 
G8 T8 6 2 

DEL • THE THE FRBm The A PHASE STaRT T9 The C PhASF START 
CALL S.'.I <T( INT, ASTRT, CS*1j'JEL I 
C9NTIN..E 

IF AEND IS >.'R. CENO» The a/C phaSf E\d • aend 
EVJAC • AF-'ND 

ENACF1 • END*C PLUS 1 INTERVAL 
S>»CPl • AE^DPl 
IFIAENO. GE.CENJI 3B TB 63 

IF Ct'NU IS GREATER THAN AEND, THE a/C PHASE E^U ■ CFNO 
ENJAC • CE NU 
r\'CPl ■ Ct^OPl 

ATHt ■ THE 8F a/C PHASE 
C»LL SMNTiINT/STRTAOE^DAL.aTIME) 

SuMTa • The L8ST T I "IE FRB-; TH£ A/c PhaSF T9 The 9 PHASE 
IF(ENAC°1 .lu.BSTRT) 69 T8 6* 
CALL Si- I'iT( I NT. ENACPl . BS"1 . SjYiTA ) 

SU">Tc ■ The L9ST T 1 l-E FRO*- THE 3 PhaSE TB THE A/C PHASE 
IF(BE\l. d 1 .E J.STRTACI GO TB 6S 
CALL Sf I\T(IMT,BENCPl/STAC'-l,Su v TBI 

suht . the lbst tmf per cycle 

»UCT1"E ■ PH«St THE PER CvCLE 
SL m ac ■ A/C PHASE FIXED T I ••■ e 

sc . c phase fixed the 
st • a/c phase split 

Sj-"T . CY - ATHE . 8THE 
ABCTHE . C - SuMj 
S.'-AC . ATI-IE • VAnAT 
IC . CTI1E • VARAT 
ST . AT I 1E»100C/ABCTHE 
j3 TB si, 

THE F9LL8MN3 CALCULATI8NS ARE F9R A oph ■ j TYPE cBNTR'.U LE H 
C9NTI\uE 

IF BSTRT IS LESS THAM BR EOUAL TB CSTRT, THE tf/C phase START • BS 
ST-<TBC ■ BSTRT 

STBC, 1 ■ STRTAC ".INUS 1 INTERVAL 

3T3C11 • es-^i 

]F(bST^T.E^>CSTRT ) G9 TB 72 
IFIBSTnT. LT. CSTRT ) GB TB 71 

IF CSTRT IS LFSS Tha\ BSTRt, The B/C PHASE START • CSTRT 
STRTbC ■ CSTRT 
STBCM1 • CS"1 

if c phase leads b phasei oel ■ del ♦ i?8 

CALL S!->INT(INT»CSTRT,BSM1,DEL> 

DEL . ^EL * 128 
C>9 TB 72 

->EL . THE THE PR» M THE B PHASE STaPT TB THr C PhASF START 

call si'Int(i\t/Bst<<t,cs»H#deli 

CBNTINuE 

IF \jt_tu IS aKEATE B THAN 3R E'iUAL Tf: CEND, THE B/C PHASE E''D • BE 
FNDBC ■ BE\D 

ENDBCP1 • ENDBC PLUS 1 INTERVAL 
ENBCP1 • SEN0P1 
IF(BEN...'iE.CENU) 3U TB 73 
. IF CtND IS GREATER THAN BEND. TH E t/C PHASE END . CFND 
ENJBC« CENO 
ENdCPl • CENDP1 

ttTIrtE ■ THE TIHE 8F THE B/c PHASE 
CALL S.»lNT(lNT,STRTBC,ENDBC,RTHE I 

SuiTA • L B 5T THE BETWEEN A PHASE T6 a/C PHASE 
IF(AE.NlPI.EJ.STRTBC) G9 TB 7k 
CALL SMNTlINT.AEMDPl.STBCIl.SUHTAI 

SUHTt . L"ST THE BETWEEN B/C PHASE TB A PHASE 
IF( AS-ll .EG.EN'DUC I GB TB 75 
CALL Si- INT (INT.ENBCPl.ASIl.SuMTB) 

SUIT • ThE TBTAL L9ST THE PER CYClE 

ABCTHE • The TBTAL PHASE THE PER CVCLE 

SUMAC . HE B/C PHASE FIXED THE 

Sc • THE L PHASE FIxED T He 

ST . THE A phase SPLIT 
SJ-IT • CY • ATHE • BTH£ 

abcthf. ■ cy • su^T 

SjIAC . BTHE - VARBT 

SC • CTHE - VARBT 

ST • ATHE»lCCC'/ABCTHE 

CBNTlNuE 

CALL GETBY(ENTKYBFF, INT.ABFF ! 

THE A PHASE BFFSET IS CBHRfCTED BY SUBTRACTING ThE PIA30 

BIAS • THE THE FRSM THE START 9F A PHASE T9 INTERVAL 1 
A8FF • ABFF • ol 
1F1ABFI- >uE.O) G9 TB SI 

ABFF IS ADJUSTED TB oE GREATER THAN Q 
ABFF • ABFF » CY 
IFIABFF.LT.CY) GB TB 82 
A3FF • ABFF - CY 
CBNTlNoE 

S6FF • ABFF . THE TIHE FKBm A PHASF TB B PhASE 
CALL Si I JT( INT, ASTRT, BS M 1.TBBFF I 
LSFF . TrtBrk ♦ ABFF 
1FIB0FF .LT.LY) SB TB 83 
BBFF ■ BBFF • CY 



20 


205 


2C 


206 


2: 


207 


so 


208 


so 


209 


20 


210 


20 


211 


20 


212 


20 


213 


20 


21» 


20 


215 


20 


216 


20 


217 


20 


211" 


20 


219 


20 


220 


20 


221 


20 


22? 


20 


223 


20 


221. 


20 


2?5 


20 


226 


20 


227 


20 


228 


20 


229 


20 


230 


20 


231 


20 


23? 


20 


233 


20 


23» 


20 


235 


20 


236 


20 


237 


20 


23« 


20 


239 


20 


2">0 


20 


2*1 


20 


2*2 


2: 


2*3 


20 


2U» 


20 


2*5 


20 


2»6 


20 


2»7 


2 i 


2t» 


20 


2«9 


20 


2*0 


20 


2S1 


20 


25? 


20 


253 


20 


25« 


20 


255 


20 


256 


20 


257 


2: 


25? 


20 


259 


20 


2*0 


20 


261 


20 


262 


20 


263 


20 


25* 


20 


2*5 


2j 


266 


20 


267 


20 


26? 


20 


269 


20 


270 


20 


271 


20 


27? 


S^ 


273 


SO 


?7» 


so 


275 


2v 


276 


20 


277 


20 


2'8 


20 


279 


20 


280 


20 


281 


20 


28? 


20 


283 


20 


28* 


20 


285 


20 


286 


20 


287 


20 


280 


20 


289 


20 


290 


20 


291 


20 


2<*2 


20 


293 


20 


291 


20 


295 


20 


296 


20 


297 


20 


298 


2U 


299 


20 


300 


20 


301 


20 


302 


20 


303 


20 


30<t 


2C 


305 


20 


306 


SO 


307 


20 


309 


20 


309 


20 


310 



142 



CSNTlNuE 
. C8FF • AaFF • 
C3 f F • 
IFIk.jPhT.EJ'0) 
OIL SKI >T(|MT, 
C9 f F • TC8FF ♦ 
inC8FF.LT.LY) 



THE TIME FR9M A PHASE T9 C PHASE 

Q8 T8 g» 

ASTRT,CSK1.TC9FF) 

A8FF 

G8 T8 8* 



C9FF • CUFF • CY 
6* CSMTlNuE 
C.... IF KjPH • o AND IF9T • 1. A9FF AND BPFF ARE INTERCHANGED 

1FIK3PHT.NE..0.BR.IF8T.EQ.0) S9 T8 85 

B8FF.ABFF 

CALL SMNTlINT.BSTRT.ASMl.TABFF) 

A9FF«88FF*TA8Ff 

IFIA8F* .LT.LY) G8 T8 85 

A8FF«A;|FF.CY 
85 C9NTINi,E 
Ct... CBMPfTED RESULTS ARE PAC«E3 INT8 ThE 18, SHTABC. SARC. SPLIT. 
C SMS, ANO OELT ARRAYS 

CALL PTBYIdfAS. INT.BI ) 

CALL PTBY[jE;lT» JNT.DEL) 

CALL PTBY(SU*!AC8C» JNT.SUMAC) 

I^BSN . 2. INT -1 

CALL PTHlFiSPlIT.IPBSN.ST! 

IPBSN • 2.1M 

CALL °TH L F (SPLIT. IPBSN.S2T) 

IPBSN ■ 4.JNT . 3 

CALL PTBYl IB, IP9SN.ABFF) 

CALL PT9»(S"TAbC. IP9SN.Sl.lMTA) 

CALL PTBY(aAHC. IP9SN.SA) 

IPBSN • *»INT - 2 

CALL PTBYl IB, IPBSN, B8FF) 

CALL PTBYlSlTAJC. IPBSN, SUMTB) 

CALL PTBY(SABC. IP9SN.SB) 

IP9SN . *.)NT - 1 

CALL PTBYl ]B, JPsSN.CBFF) 

CALL PTBYlS-'TAOC, IPBSN, SUMTC) 

CALL D TBY(SABC, IP9SN,SC) 

IPBSN . »«INT 

CALL PTBYl IB, JP8SN, IF8T) 

CALL PTBYlSiTAdC, IPBSN, SUMT) 

CSNTlNuE 

RE 'URN 

EN'J 



so 


311 


23 


312 


23 


313 


20 


310 


20 


315 


20 


316 


20 


317 


20 


318 


20 


319 


20 


320 


20 


321 


20 


322 


20 


323 


20 


32* 


20 


325 


20 


326 


20 


327 


SU 20 


328 


20 


329 


20 


333 


20 


331 


20 


332 


20 


333 


20 


33l> 


20 


335 


20 


336 


20 


337 


20 


338 


20 


339 


20 


3»0 


20 


3M 


20 


3*2 


2: 


3*3 


20 


304 


20 


3*5 


20 


3*6 


20 


3*7 


20 


3*8 


20 


3*9 


20 


350 


20 


351 


20 


35? 


20 


353 


20 


35* 



143 



2.6.83 SUBROUTINE SMINT 



RduTl ill S^IMT 



SmT.T 
SjOMHjtI'.E S«I , .TIIWL>« 1 <i 
CSIMBN /8L<' /*9U! ( 16) 

. KLTC(l7)tK3PHl(31 XSTUPF; 
C? v, l'9». /13LK1*/ CICTF(B) 

• CM6lfc2) 



CUfiBFl Jl) 
uH&T(l2»l 
BG56(1E») 

TKM31 ) 



• EN6FP131I 

. iLABCl 124) 

• SSSSlia*) 
1S1«C 

C»LL oS.ToY( InTm], ICj JH) 

IL-KL 

JH.KH 

IFUL.lE.O) IL»IL*J« 

IFIHtuE.O) IM.IH*jh 

|ri]Liul.J«l 1L.IL-JH 

IF( IM.uT. Jc) In.IH.jH 

I'll. 

jC»16.( IOl ) 

jOX.jc.1 

CALL itTaY(ENI\T. JOX. JS^I 

IS" l .ISe+jS-« 

IF(!«Eu.IH| RETUMN 

I"l*l 

IFCI.5T.JH1 I.J 

iS T8 1C 

EN'J 



IS- I 

» ISTHK31) , | 

'JUL (31) 

CTODFm 
CYCLC(31I 
GA*TP|31 ) 
CjUABCi 12t ) 
HKBF (31 ) 



ST* 
EM 



MK.96) 

Tp(3) I 

Dj(»=>6, 



21 


1 


21 


? 


?1 


3 


?1 


4 


21 


5 


?i 


k 


si 


7 


21 


R 


SI 


9 


21 


1C 


?1 


11 


Si 


1' 


SI 


13 


Si 


1» 


21 


15 


21 


16 


21 


17 


21 


1? 


21 


19 


21 


20 


21 


21 


21 


22 


21 


?3 


21 


?<t 


Si 


25 


21 


S6 


21 


?7 



144 



2.6.84 SUBROUTINE WCODE 



ReUTISE! *C« 


•>E»*TEST ( 


IS 


3 


. 


»C3Dt < %T£ST 


.ISJ 




DE* 




-CB3t 




0E( 




-T L ST 




DEF 




IK'S 


„C8».N 


DSiCT 






»C»OE 


"E3 




3 




OAT* 






»TtST 


DATA 




;i 


1»J 


DATA 
ENL 




1 



WT\» A'nD «SJd CBH'SS 
DLTF oy IMS r\TWA\CF 



SET B y "SUo FS« TESTIV1 'i v ST\. 
INDEX T9 «AO STA-,TIN3 aDOESS 



10 


1 


10 


2 


10 


3 


10 


<f 


10 


5 


10 


6 


10 


7 


1C 


S 


10 


9 


10 


10 



145 



2.6.85 SUBROUTINE WSUB 



• • "SUB 

DEF -SUB 

KEF DPATfcUM 

KEF DSPA 

KEF ENDACT. 

KEF neuFL^i 

KEF HSbUF 

KEF IR3 

»EF JJ 

KEF LFDPN 

KEF NUMSCT 

KEF PTN 

KEF SHTPLS 

REF SLFDPN 

KEF -C8DE 

KEF fcTEST 
.vSUB KES 

LCI 

STh.o SKESS S*VE REGISTERS 

1.1.1 

ST»>1 "TEST ClE'R rfTEST 

L*, 1 "C8DF 

CI/1 1 

B.*E "61 

Lk,3 103 <0B*-1>»96*FhT9D 

lb,* uspa,3 disc starting pbint address 

LI, 2 J INDEX FBR SECBND h*LF 9F «9R3 

CH,» ADFPT*6»2 

BE EXIT IF EQUAL OS TB* EXIT 

STh/» A(JFPT»6»2 

CAul»l ADFPT 

LI/1 1 

ST*,1 -TEST "TEST . ♦ 9R . FBK TESTING BY RTV. 

B EXIT 
. 

.61 PES 

L"»3 UJ. 

Lo,5 DPATnUM.J 

Ma, 5 NuMSCT 

A„,S 3 

l*,k LFDPN, 3 R» ■ ''6. OF BYTES IN PATTERN 

LB, 11 SLFDPN, 5 Rl 1 • FILE KEY FBR PAT\U* 

LI, 2 1 INDEX F9K RIGHT iALF BF »»KD 

ST*, 11 PTNFPT*6«2 

S>Th»4 PTNFPT*5,2 

Ca l 1,1 PTNFPT READ PTN 

EXIT RES 

LCI C 

Lrt.O SREGS REST9RE REGISTERS. 

b .15 
• 

PTNFPT UEN«8»2* X'10'*FO p TN 

GEN, 4, ». 2, 22 *l5, 1.3,0 

DATA RaD£R«,RaDEK* ERR9R AND ABNBRiAL ADDRESSES 

Data ptn 

DATA 2080 

DATA C 

DATA ENDACT* 

DAT 

FS^TN GEN, 8, 2* 7,1 

DATA.l 5,0,9*0 

D.ATA 0,0,0 

TExT >PTN • 
. FILF PBINTER FBR READING FRBH RAD INT9 HSBUF 

ADFPT GEN,8,2» XUO'.FOKDW 

GEN, 4, 4.2, 22 15,1,3,0 

DATA KADER* EKR8R ADDRESS 

Data naDER* aBn8R"AL ADDRESS 

DATA HSBUF SUFFER ADDRESS 

DATA hbuFLNG BYTE C9UNT 

. FBkCE READING 6F HSBUF At START UP 

DATA, 2 C. 

Data, 2 -i granule number 

DATA ENDACTh 

data o 

PjKD* GEN, 8.2* 7,1 

DATA,1 5.0.9.C D4 

DATA 

Data o 

Data 5 

TExT 'HSBUF 

raJEK* Cali.2 KADERK 

LI.l -1 

ST„,1 -TEST NEG FBR ERR9R 

B EXIT 

RAUEKR GEN»8,2» 2,0 

GEN,8,2» 8,0 

DATA RADHfcSS 
KADMtss TExTC ' RAD KE»D ERR8R ... ATTEMPI NG SHUTDBkN' 

sregs. data o»o*o«o»o»o»o»o registers o«7 

data 0»d»0'0»0»0»0o registers 0-15 

END 



9 


1 


9 


2 


9 


3 


9 


4 


9 


5 


9 


6 


9 


7 


9 


« 


9 


9 


9 


10 


9 


11 


9 


12 


9 


13 


9 


14 


9 


15 


9 


16 


9 


17 


9 


18 


9 


19 


9 


23 


9 


21 


9 


22 


9 


23 


9 


2« 


9 


25 


9 


26 


9 


27 


9 


28 


9 


29 


9 


30 


9 


31 


9 


32 


9 


33 


9 


34 


9 


35 


9 


36 


9 


37 


9 


38 


9 


39 


9 


*o 


9 


»1 


9 


»2 


9 


"3 


9 


44 


9 


45 


9 


46 


9 


"7 


9 


48 


9 


»9 


9 


50 


9 


51 


9 


52 


9 


53 


9 


5* 


9 


55 


9 


56 


9 


57 


9 


58 


9 


59 


a 


60 


9 


61 


9 


62 


9 


63 


9 


6I> 


9 


65 


9 


66 


9 


67 


9 


68 


9 


69 


9 


70 


9 


71 


9 


72 


9 


73 


9 


74 


9 


75 


9 


76 


9 


77 


9 


78 


9 


79 


9 


80 


9 


81 


9 


82 


9 


83 


9 


8 4 


9 


85 


9 


86 


9 


87 


9 


88 


9 


89 


9 


90 


9 


91 


9 


92 



146 



Rt<jTI\|Ei 



2.6.86 ROUTINE X 



• -<TNx 29 1 
SJaKBJTlNE «TNX 29 2 
CBMC'BN /dL<6 / F1C > F.MARK , «ST(9) . 29 3 

• -HAST / J<AST < KMAST , E"AST , 29 * 
. -H1AST / kMAST » QMAST « ItfAST i 29 5 
. S^ACE , 1P8KY 29 6 

W"M6\ /dLK7 /A9UII16I » IN!H|(31l , INT2M31) . 29 7 

• KCTCI ] 7),<3PhI (31 ),STuPF,NQ L (31 1 s3 s 
CB^MBN /BL<W CLENS . DTLNG , C"'L\3 . 29 9 

• DUhY] , CU1Y2, 29 10 

• CNTLII372), E - <TFL(b), KCL(l7)» KCTF<17)# 29 11 

• <CSF(l7), NMVAK31), SmSkKs), 29 12 

• V«I\Iil23) i INKPT[6*) 29 13 
C9"'K3f. /SLK17/ ADVNl(8> « CICBI(k) , CA93IU) , 29 H 

• I«DPI<*> » CMJ«(12») ' CNTNM , I L 2 . 29 15 

• !NTMI ( 3i) , INTuIOl) < INT8I(32) , KL1 . 29 16 

• STBTII32), TI«EI(32)» 3V8M169) 29 17 
CBiKBN /9LK18/ CICTI (8) , CT9DII8) < STB0K8) , 29 1? 

. C»NTI(62) . CJRB1(31) ' CYCLK31) « ENIM(<t96) / 29 19 

• ENBFK31) i 5AAdI(12A) , SA»TI(31I , StfwTIOl) . 29 20 

• HLABK121) « SMAdKia*) > 3UABIU2*) / INT0M496) < 29 21 
. SABCIliatl , TK.1I131) #WRK8I<31) 29 2? 

C9"iM9>; /32C9NT/ *R<8FS(12*>, J9( 12»>» !EA(31 ),ENTCYC(3l > , SPL I T ( 1 2» ) , 29 23 

1 CURPNOl) 29 a* 

C9MK8N/dITL2/BITAR[6A0) 29 25 

DI'ENSIBN A'JvNH ( 32),A9lj<32),Ap9(32>,AUT9F(32l,CICBP(3?), 29 26 

. r* f r-i-c j ^-. i ~r *-Vc- j-i-i.*-TMf>r-/ji. r*M.i e-# »«■>». ^B.anj:3M%-cc*.*c , i'*'*i pg 27 

29 28 

29 29 

„-JIVAlEMCE 29 30 

1 ( ADvN«,BITAH( l)),(A93 .blTARI 33 ) ) » ( APB ,BITAR( 6S1). 29 31 

21 AJTBF,3ITAr(( 97))/ ?9 3? 

1 (CICBP,3ITAH(129) )» (CICEF,dlTAR(l6l) I, ( CICSF, 81 TAR ( 1 93 ) J < 29 33 

1 (CICTF,dlTAK(2£5) ), (CT8DF,dlTAR(257) )» ( CMALF, Rl T AR ( 389 )" . 29 3» 

3(CPABo,aiTAK(32i ) ), IFSTCF,dlTAR(353) 1, (H9L0 ,81TAR(3S5> ), 29 35 

29 36 

29 37 

29 38 

29 39 

29 »0 

29 »1 

C8"<MBn /8YTL2/ICBN,JL2«KL2«IDECR,WSL2(50> 29 »2 

C9-IMBN /3E-1L9/ SEMAC(20),SEMCT 29 t3 

29 *« 

29 »5 

2TK1,V9 L »VBT 29 "6 

29 »7 

29 »8 

29 »9 

INTESER *RnBI,tNBFI»CL|RBI#vRINI 29 50 

IMEIjEk CLENU,CNTDR«EMAST,STuPF,ENTFl 29 51 

INTEGER CuROF,EN8FF,vRINT,*.Rk9F,i«SL2 29 5? 

IN'E3E« ENBF/CORF.nRKF 29 53 

INTEGER BITA^ 29 5* 

EdOIVALENCE (YIELD, BITAR(<,17| ) 29 55 

0PENSI8N YIELU(32), INTDJI2) 29 56 

EQUIVALENCE I INTUU,*SL2(1 ) ), ( IE 1 1 » *Sl? ( 3 > ), ( IE12, HSL? ( <t ) I, 29 57 

1 ( ISHF,*SL2<5) ), ( INTNM,*SL2(6) ) , { INDEX, WSL?( 7 ) ) # ( I , «SL?(8 ) ) , 29 58 

1 (IT. wsi 2(9)1. 'FPs.*Sl2<10> I, (EPST,wSl2(U) ), (IR13, *SL?(13) ) '" " 

INTEGER SE1AC,SE>ICT ? 9 *0 

INTEGER EPS, EPST, YIELD 29 61 

• SET I TB INITIAL CBMR8LLE* 29 *2 
J.I 29 63 

2 ISHF.SfclAC(O) 29 6A 

IF ( ( ISHF.3T. IC9-N) .A\D. ( I S«F ,LE. i ICB.\»32) ) ) 39 T9 » 29 65 

33 T9 i 29 66 

I«ISHF.IC9\ 29 67 

IEIl»lo»IS"iF.i5 29 68 

I E I 2 » 1 F. 1 1 + 1 29 69 

• C-<EC< TB SEE I<- C9-TRBLLER IS IN STA\DBY 29 '0 
IF (HBLUI II'MEO) 38 T9 10 29 l\ 

• C?^TR9lLER IS IN STANDBY CHECK TB SEE IF AoTB^ATIC C9NTR9L 29 7? 

• IS DESIRED 29 73 
TRNSF ( I ) . 29 7* 
STOYD ll) • 29 75 
FSTCF ill . j 29 76 



D I "ENS IBM A l JvN H (32),AB(j(32),AP9(32),AUT9F(32l,LICBP(3?), 
1 CICEF ( 32 ), C I CTF ( 32 ), CT8DF ( 32 ) .CMALF (32 ),CPA83( 32), FSTCF (32), 
?HBLD(3s ), IADVPI32), I MTlS ( 32 ) , SEMSK ( 3? ) , SPLCH( 32 ) , STBYD ( 33 I , 
3STSTA( j2),T"NS^ ( 32 ), C I CSF( 32) 

EQUIVALENCE 
] (ADVN«,BITAH( l)),(A8S ,blTAR( 331), (APS ,BITAR( 6"?)), 
2( AJTBF,3ITAr(( 97)), 

1 (CICBP,3ITAK(129) ), (CICEF,dlTAR(l6l) !, ( CICSF, 81 TAR ( 1 93 ) J < 
1 (CICTF,dITAK(g£5) ), (CT8DF,dlTAR(257) ), ( CMALF, Rl TAR ( 389 )" , 
3(C K AB3,dITAK( 32 p), (FSTCF, dlTAR( 353) 1,(H8L0 ,BITAR(3SSI), 
*(I 4 DVP,dITAN(i,l7)),(I\TlS,dlTAR(<»A9)>,(SEMS'<, BIT AR [*81 )), 
5(SPLCM,BI TAN (5131), ( STRTA, dl TAH ( 5A5 ) , , ( STBYD, BI TAR ( 577 ) ) , 
6|TRNSF,dITA*l6v9> ) 

INTEGER ADvNM,A83,AP8,AUTBF,RpSIF,BTRNF,CICBP,CICEF,CICSF, 
1CICTF,CT8DF,CMALF,CPAB3,FSTCF,BAI,H8LD,SEMSK,SPLCH,STBYD, 
2ST-*TA,TRNSF 

CS-'MBX, /BYTL2/ICB^, JL2«KL2, I DECR, WSLg ( 50 ) 

C9MMBN /3E'-1C8/ SEMAC(20),SEMCT 

IN1E3EK AM9PN,C9NTb,CNTLM,LYcLC,ENlNT,GAA8C,3A n TP,uBl,TP, 
l3LABC,u'1ABC,LDSET,iJClCT,rjau,'jQRR,0ve<,RRR,STETM,SAtiCT,TEwCT,TIMEe, 
2TO, V9 L , YBT 

INTE3Eh AMBPI,C9NTI,CNTLI,CYCLI,ENINI,0AABI, jA*T I , 3B*T 1 , 3UAB I , 
15LABI,u"lAei,',)CICI,JQ0I,QiJRKI,QV8KI,RRRI,STBTI,SASCI,TF"<CI,TIMEI, 
STKIIiVOLI, VBTI 



IF (AjT8F( I ).EJ.O) 38 TB 3 29 77 

C •• AJT8.1ATIC CBN.TR8L DESIRED CH E CK T9 SEE IF C8RRECTED A PHASE GREEN 29 7? 

C •• RETURN IS SET 29 79 

IF (ASCII ).E3.0) 38 TB 3 29 80 

C •• A33 S£T - SET ISTNIM TB SECUNT INTERVAL AND INTDJ T8 ENTRY 29 Ml 

C •• INTERVALS 29 8? 

INTNM .2 29 , 3 

CALL P*8YT(INT M !,ISHF,INTNM) 29 ij<, 

C •* JNPAC< ENI «T J9 85 

CALL UPBYT (EnInI, IEI1, IMTJUd) ) 29 nj. 

CALL JPBYT (EMNI, IEI2, INTUU12) ) 29 87 

C •• PACK InTJU 29 gj 

CALL PKBYT( INTUI, IEIl, INTDwl I ) ) 29 89 

CALL PKBYT(INTi)I»IEIZ,INT0U(2)) P9 93 

CNTDRl IShF)*InTCU(2) 29 9) 

H8LD ( I ) • 1 23 95 

CALL PnBYTiSTBTI, ISHF, U ) 29 93 

CALL uPBYT(EN8f I, ISHF,EN8F) 5 9 9» 

CALL PkBYT(«RKBI, ISmF.ENBF) 29 95 

CALL jPdYTlEMTtYC, IShF.TMP) S g j!t 

CALL P*dYT(LYCLI,ISHF,TMP) 29 s7 

IIJ«»»( ISHF-1) 29 »g 



147 



39 9 IJ<«1»« 
IJJpII j+IJ< 

CALL UPBYT<I8,UJ,TKP) 
CALL PkBYT(«RK8FS. IJJ.TMP) 
9 C9NT[NuE 
S9 T9 3 
C •• 

c •• csntrbllep. under computer cbmrbl 

13 AUT8F (I) . o 
C •• STEP DSwN C9UNTD8w\ REGISTER 

CNTDR( iSmF).CnTDR( ISHF)-IDECR 
C •• IF REGISTER N8T YET C8UNTEU 08«N PASS T9 NEXT C9NTR9LLER 

IF(CNTl)R( ISHFI.GT.u) GB TB 3 
C •• IS C8NTR8LLER IS SEC9ND INTERVAL IF N9T PASS T9 2 ASS ATTEMPT 
C •• T9 SET YIELD FLAU 

CALL UFBYT ( INTrl, IShF. INTNM) 

IF (INTNM.EUill 69 T3 1 

l\TSM«i 

CALL P^MVK IST^I/ ISHF, INTSi) 
C •• PASS To 2 AND CHECK T8 SEE If TRANSITIBN FLAG IS SET . IF SI 
C «• CHANGE INTERVAL DURATIBNS AN3 BFFSET 

IF (TR^SF (I).EE.OI 59 T9 11 
C •• UNPACK NEW INTERVALS 

C-uLUroTi ItNISIjIEIl/ INT3U(1I) 

CALL UPBYT (EMNI, IEI2. INTUU(2) > 
C •• PACK NE* INTERVALS 

CALL PkBYTi I MTU I » 1EI1» INTDU(l) I 

CALL PkSYTi INTUI. lEIl. INTDO(a) ) 

CALL UP9YT(tM(>f I. ISHF/EN8F) 

CALL Pk9YT(»RKBI« ISMF.EN8F) 

CALL UPBYTlENTCYC. ISmF.TMP) 

CALL PKBYT|CYCLI»ISMF/TMP) 

I I J.»»( IShF-1) 

G9 131 UK .1 .<, 

I JJ»II J>ljK 

CALL UPBYTl 19, IJJ.THP) 

CALL PkBYT(1RK9FS, I JJiT^P) 
131 C9NTlNuE 

TRNSF < I) • j 
C •• CALCULATE NEW C8UNT D9«N REGISTER 

11 FSTCF (I) « -1 

C •• unpack CYCLE lENIjTm C9DE 

CALL UPBYT (CYLLI. ISHF, INDEX) 

IN3EX«INDEx*l 

C3*F«Ki.TC< INOEX) 

CALL PkBYTiLURBN ISHF.CjRF) 

CALL UPBYTl "KK9I, ISHFinRKF! 

EPS.wRkF.kCICi Index) 

IF (EPo.EQ.O) GB TB 12 

EPST • EPS»B 

IF (EPST. GET) G8 T8 13 

EPS • t PS » KCL (INDEX) 

GB TS 12 
13 EPST • EPST • KCL (INDEX) 

IF (EPST. LEO) G8 T8 12 

EPS • EPS - KCL (InDEX) 
C •* uSPACK DURaTISN 8F FIRST INTERVAL 

12 CALL UPBYT I INTDIt IEI1. INTUU (1)1 
CNTORl ISHF)«INTOU( D+EPS 

GB T8 3 
C •• C9NTR9 L LER SET T8 SEN D YIELD PULSE • CHECK T8 SEE THAT A9G FLAG 
C •• IS SET 

C •• SET C8NTR9LLER T9 SEC9N0 INTERVAL 
1 ININM . 2 

CALL PkBYTi INT*I«ISHF,INTNM) 

IF (A8b(I) >EQ.^I u8 TB 1» 
C •• CHECK TB StE THAT STANDBY DESIRED FLAG IS N8T SET 

IF (STBYDI I I.SE.O) G8 T9 15 
C •• SE' C8uNTD9«IN REGISTER TB SEC9ND INTfRvAL AND SET YEILD FLAG 

CALL UPBYT ( INTDI, IEI2»CNTJK( ISHF) ) 

YIELD III • 1 

G9 TB i 
C .. iHHfjft k8UTINF. 

1* C-I«LF ( I) ■ 1 
H6LD ( I ) ■ 3 
ENTFLI 1 )«0 

CALL PkH/,(C»NTI,CLENG«1, ISHF) 
CLESG.CLENG+1 
GB T8 3 

c •• sTANDbY is desired 

lb STBYD I I) • 3 
H8LC ( I ) • 
C •• INCREMENT CBNTKRLLER NUMBER 
3 C9NTlNuE 
'- 1*1 

IF( j.LE'SEMLl i GB TO 2 
C SCHEDULE RTnK 

IF (CLENG .GT. 0) MAST(KMAST) • 1 
RETURN 

£NJ 



29 


99 


29 


103 


29 


131 


29 


13* 


29 


133 


29 


13» 


29 


135 


29 


136 


29 


137 


29 


13? 


29 


139 


29 


113 


29 


111 


29 


112 


29 


113 


29 


11' 


29 


115 


29 


116 


29 


117 


29 


ne 


29 


119 


29 


I2r 


29 


121 


29 


12? 


29 


123 


29 


12* 


29 


125 


29 


126 


29 


127 


29 


128 


29 


129 


29 


133 


29 


131 


29 


13? 


29 


133 


29 


13* 


29 


135 


29 


136 


29 


137 


29 


138 


29 


139 


29 


1»0 


29 


m 


29 


1»2 


29 


1*3 


29 


ltd 


29 


1»5 


29 


1»6 


29 


1»7 


29 


1«8 


29 


1»9 


29 


ISO 


29 


151 


29 


152 


29 


153 


29 


154 


29 


155 


29 


156 


29 


157 


29 


158 


29 


159 


29 


160 


29 


161 


29 


162 


29 


143 


29 


164 


29 


165 


29 


166 


29 


167 


29 


168 


29 


169 


29 


17C 


29 


171 


29 


172 


29 


173 


29 


174 


29 


175 


29 


176 


29 


177 


29 


178 


29 


179 


29 


ISO 


29 


181 


29 


182 


29 


183 


29 


18* 


29 


185 


29 


186 


29 


187 


29 


188 


29 


189 



148 



2.6.87 ROUTINE Y 



*TNY 




TITlE. 


'•••« ROUTINE V STARTOF "SuTINE • •• 


DEF 


RTSY 


DEF 


AUT8F 


OEF 


BASS BuS C'TA AHkAY 


DEF 


BARR9YTC 3uS C«TA ARhAY 6' 


DEF 


BPSYJIF 


CEF 


f:tbps 


CEF 


C«TDfcl 


DEF 


CRTDC2 


DEF 


CICEF 


DEF 


CICSCT 


DEF 


CICSF 


DEF 


CICSYS 


DEF 


CALF 


DEF 


CALF 


DEF 


COSSEC 


DEF 


CWTFL1 


DEF 


CKTFL2 


DEF 


CTLSEC 


DEF 


LTLSYS 


DEF 


CYCLC 


OEF 


DBP 


DEF 


DETDSF 


OEF 


JJ 


DEF 


L'OSP 


DEF 


D1S 


DEF 


DMALF 


DEF 


D*BDE 


DEF 


DPATSIU'* 


DEF 


OSPA 


DEF 


EMRYSFF 


DEF 


FMSECF 


DEF 


F^SYSF 


DEF 


FMTBDC 


DEF 


FiETCF 


DEF 


GABbCAbC 


DEF 


GAwTEhP 


DEF 


QbwTE.'.P 


DEF 


G^INAbC* 


OEF 


nBuFLnG 


DEF 


HHF 


DEF 


HSBUF 


DEF 


ACL 


DEF 


KNE« 


DEF 


LPBUF 


DEF 


LFDPM 


DEF 


MASK 


DEF 


1CDF 


DEF 


MI 


DEF 


MBDE» 


DEF 


NLWRD 


DEF 


NURD2 


DEF 


NMANPAT 


DEF 


NPATBYT 


DEF 


NnESPAT 


DEF 


NUmCTl 


DEF 


NUMSCT 


DEF 


NSECTMi 


DEF 


NUMVED 


DEF 


PARC8D 


DEF 


PKTFLG 


DEF 


PTN 


DEF 


RTC 


DEF 


SAVKO 


DEF 


SAVR8 


DEF 


SEMMSK 


DEF 


SMTFLu 


DEF 


SPLCHG 


DEF 


STBYO 


DEF 


SOMA8CT 


DEF 


SLFDPM 


DEF 


TT 


DEF 


TSTART 


DEF 


TiRESH 


DEF 


TImmCm 


DEF 


TKANSF 


DEF 


WHSF 


DEF 


.JKKBFF 


DEF 


r«SBF 


DEF 


*SF 


DEF 


TBYTElb 


DEF 


TBYTE 


DEF 


TBLFF15 


DEF 


CLsP»«AW8CP<RAV.SPF 


DEF 


WKKBFS.I9» IEA.EMTCYC,SPlIT,CQRPN 


DEF 


LIN<L»L!N<HT, IALPH»aiLNK,L«N8»UC?LSI 


DEF 


GC8MT«GOTSI»bRPN8/NClGRP 


DEF 


N2GCL/ NCC«» N8L» \GRPS» M CI GP 


DEF 


ABCSTRT.ABCENO.BIAS.DELT.SMABC 


DEF 


SABCjSUMACBC 


DEF 


SURC8\/HLDSPL.HLD8FF,GATE'"/GBTE^ 


DEF 


9F^P 


OEF 


CICINmjLSQ.CYLRcF 


DEF 


INTF,.mIMFC.NGRpi. Intn, INTNJ/LINKN 


DEF 


NAVMPAT 


DEF 


AVMPAT 


REF 


BPTlME»8PTIN»MlNCT5 


REF 


DUMAST 



22 


1 


?z 


? 


22 


3 


22 


» 


22 


5 


22 


6 


22 


7 


22 


8 


22 


9 


22 


10 


2? 


11 


21 


12 


22 


13 


22 


Ik 


22 


15 


22 


16 


22 


17 


22 


19 


22 


19 


22 


21 


22 


21 


22 


2? 


22 


23 


22 


2k 


22 


?5 


22 


26 


22 


27 


22 


?«. 


22 


29 


22 


30 


22 


31 


22 


J? 


22 


33 


22 


3» 


22 


35 


22 


36 


22 


37 


22 


3» 


22 


39 


22 


"0 


22 


»1 


22 


»2 


22 


»3 


22 


<•» 


22 


"5 


22 


»6 


22 


»7 


22 


»8 


22 


*9 


22 


50 


22 


51 


22 


5? 


22 


53 


22 


5» 


22 


55 


22 


^6 


22 


57 


22 


5R 


22 


GO 


22 


60 


22 


61 


22 


62 


22 


63 


22 


6» 


22 


65 


22 


66 


22 


67 


22 


68 


22 


69 


22 


70 


22 


71 


22 


72 


22 


73 


22 


7<t 


22 


75 


22 


76 


22 


77 


22 


78 


22 


79 


22 


80 


22 


81 


22 


82 


22 


S3 


22 


Bit 


22 


85 


22 


86 


22 


87 


22 


88 


22 


89 


22 


90 


22 


91 


22 


92 


22 


93 


22 


9» 


22 


95 


22 


96 


22 


97 


22 


98 


22 


99 



149 



TYf£Hl 
ALBC 



LF 

LF 



•.respat 

.ilANPJT 
NST 



TBSUE15 

VPATBYT 

«PATBYTt 

-iBUFl-.Ci 

T6"T£l5 

MOS 

\L« 

.CI 

MS* 

>C*RU 

\C««D? 

*C«RJ6» 

?NC»HD 

-iNUMdF 

C* 
J* 
F» 



REF 

REF 

REF 

REF 

REF 

PSYS 

SYSTEM 

EQU 

E.UU 

TITLE 

CNA.lE 

PR8C 

L3CAL 

SET 

SET 

08 

EQU 

ELSE 

EQU 

FIN 

PENu 

TITlE 

Euu 

EUu 

EQu 

EQu 

ESJ 

Euu 

SPALE 

EUJ 

EQu 

E30 

EQu 

EQU 

AL8C 

AL8C 

AL9C 

ALBC 

EQU 

EQU 

EQU 

EQU 

EQu 

EQu 

EUu 

EQu 

EQu 

EQu 

EQU 

EQu 

EQU 

TITlE 

SPACE 

RES 

ST*,0 

LI.R1 

LI. J 

LI. a 

SW, 1 

ST*, 2 

BDR, 1 

RO.j 

B'CS.l 
LI. 6 
LI.l 
LI, 5 
CAul.l 
CAL1.1 
CAli.1 
Ll.lt 
BAL.15 
BDR.lt 
Ll.l* 
LI. a 
BAL.15 
BOR.lt 
LCI 
LM.2 
ST*, 2 
ST*, 3 
STu.t 
STrt,5 
ST*, 6 
CAL1.1 

RES 

H.hio 

LI.RU 

ST*. RIO 

ST«,R10 

ST..R11 

ST*, 311 

LI, 11 
L"»2 

ST~.11 
CALl.8 
L«,«ll 
LI.R10 
SLO.RlO 
LB,*15 

Al 4 ril5 

AI,.<10 
BE 
CI, -.10 

eL 

Al.^15 
AI.K15 



FI--C 

<i-AST 

•1AST 

STRTA 

FKAu, ,pe^.CLBSE,EWR8R 



UTCSREG 



TYPE*1 

■*•>• system prscedure tb set reserve limits 



A*.B$ 

AF (1 > 

AF(1 ].(t.(AFI 1 )/t ) I 

A*>0 

AF ( 1 ),>.ll 



B* 



utcs SYSTEM ASSFmRI v parameters 



516 
275 
123 
3 



NUMBFR 9F SECTIBNS 
NUMBER 8F DETECTBRS 
NU-BER BF LINKS 

NUMBER BF C6NTR8LLERS 



(6«NL)»5 

NHESPAT.NMANPAT 
t.NPATBVT 
\PATBYTt«256»'.RE! 
t«TBSIZE15 
NO 
NL 
NCS 
NST 

(NCR/'J2)»1 
2»NCWR0 
6t»NC*R0 
2«NC*RD-2 
200 

NL.RO-1 
NUR/32 
(t.MNuMbFI-1 
NST-1 
(NSR/21.5 
7*(NSR/*1 
(NSR/*)«J 
NSR/t 

i.... RBUTINE 
2 


SAVRO 
DATL* 
SUATAt 



»UATA»-l.l 
*-l 

N9REAC 

LPBUF 

2 

9PEN 

R*RAO 

READRAD 

2 

Put 

*-l 

9 

1 

PUT 

S-1 

Q* 
•1 
NSFAIl 

E90C 

NM9LI0AY 

FTAU 

FTAB.JRD 

CLBSE 



2 

1 

CWT0C1 

CKTDC2 

CRTFL1 

C"TFL2 

1 
KMAST 

OuMAST.2 

TMBF» 



8 

"11 

•*iF 3 i 

-x>FO> 

D»NE 

2 

*»2 

It 

1C 



MAX NUMBER BF ENTERIES IN FAILTAq 

Oyna-IC RE5ISTEW NU"BER 
STARTUP R8UTINE ..... 

SET NU"B 9F »BRDS T9 CLEAR 

SET R? F9R CLEAR 

FINE NUMBER 9F CELLS TB BE ZERBEP 

L89P SACK 

READ SENSE SWITCHES 

u*e INOE« 

SET BUFFER ADORESS IN Rl 

SET R5 F9R INTERLEAVEO IATa 

9PE\ SMuT08«N FILE 

RE"!NC SHuT09*N FILE 

READ S-.UTD8-N FILE 

SET L8BP CBuNT 

PuT A»AY SHUTD8*N DAT* 

LB9P 

SET L99P C8UNT 

RESET H5 FBR NBN-INTFRLEAVFD OATa 

PUT A»AY The REST 9F DATA 

LB9P 

GET LAST FE* *9RDi 

GET LAST FE» *9R0b 

NUMB BF FAILURES 

ENO 8F OAY CBUNT 

Nu«B BF HBLIQAYS 

FAILURE TABLE INDICES 

FAILURE TABLE INDICES 

CL8SE DCS 



SET CRTDC1, 
SET C'TFLl, 



CRTDCf • SYS STATUS 
CRTFL? FaLGS 9N 



SCHEDULE RBUTINE «. 
GET PRESENT TIME 

CLEAR RIO 

GET HP IN EBCDIC 

SET UNITS DIGIT IN R|5 

MAKf BCD 

MA<f_ BCD 

TENS DIUIT IS ZERB 

TEST IF HR. TENS DIGIT IS 

NB, MAKE IT lu 

ADJ in FBR T»ENTY 

ADD TEN FBR 10 



22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
Z2 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
IZ 
22 
22 
22 
22 

zz 

22 
22 
22 
22 

22 
22 

22 
22 
22 
22 
ZZ 
22 
ZZ 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
ZZ 
22 
22 
22 
22 
22 
ZZ 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 



100 
101 
102 
103 
10« 
105 
106 
107 
108 
109 
110 
111 
112 
113 
lit 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12t 
125 
126 
127 
128 
129 
13C 
131 
132 
133 
13. 
135 
136 
137 
138 
139 
1»C 
1M 
lt2 
Its 
ltt 
l»5 
lt6 
lt7 
lt« 
j«9 
150 
151 
15? 
153 
15t 
155 
156 
157 
158 
159 
160 
141 
16? 
163 
l't 
165 
166 
167 
16» 
169 
170 
171 
1/? 
173 
17t 
175 
176 
177 
178 
179 
1«D 
1«1 
1'? 
183 
l«t 
185 
1*6 
1«7 
188 
189 
190 
191 
192 
193 
19t 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20t 
205 
206 



150 



09 N£- 


MI.R15 


» 


FBRm NUMB. 8F 15 MIN. INTERVALS I 


22 


207 




LI. RIO 


XT' 


YES, PICK UP TIME (M)NUTES 8NLVI 


22 


208 




ANc,RlO 


T"BF* 


YES, PICK UP TIME (MINUTES 9NLT) 


22 


209 




LB, Rll 


TMBFt*l 




22 


210 




A1,RU 


-X'FO' 


CBNvfRT FR8M EBCDIC 


22 


211 




X«*w.lO 


Rll 


S»AP REGS 


22 


21? 




MI. Rll 


10 


C8Nvf=>T FWBM BCD T8 HEX 


22 


213 




Aw»mi 


Rio 


ADD IN UNITS PLACE 


22 


21A 




ST*, Rll 


Svn 




22 


215 




LI. Ml 


6C 




22 


216 




LI. RIO 







22 


217 




DV..K10 


6PTI1L 




22 


218 




STiv.RU 


6PTIN 




22 


219 




LI. RIO 


3 




22 


220 




Lw,Ml 


svn. 




22 


221 




D*,R10 


BPTI1E 




22 


22? 




LC.R11 


RIO 




22 


2?3 




Ax.RH 


8ptime 




?2 


224 




Ml/Ml 


60 




22 


225 




STw.RH 


MINCTb 




22 


226 




Lw.rrll 


Svil 




22 


227 




LI. RIO 





CLEAR RIO F9R DIVIDE 


22 


228 




DW.R1C 


■ 1? 


DIVIDE BY 15 


22 


229 




AW. 1.15 


Rll 


ADD NUMB. 15 MIN. INTERNALS T8 Ri 


22 


230 




LC«,RH 


RIO 


PUT -REMAINDER IN Rl 1 


ii 


231 




AI.K11 


15 


ADD FIFTEEN 


22 


232 




MI. Rll 


60 


FBR NUMBER 9F SEC8NDS UNTIL NEXT 


22 


233 




STw.Rn 


FMC 


SAVE IN i5 MIN. CBUNTER 


22 


231 




ST»,R15 


F"TBOC 


STR NUMB, 8F 15 MIN INTERVALS IN 


22 


235 




LW.10 


TM8F**1 


GET FIRST 2 CHAR BF «3NTH 


22 


236 




UHiH 


TMBF$«g 


GET 1ST H«. 8F 3RD W9RD 


22 


237 




SLS.ll 


16 




22 


238 




SLD, U 


16 




22 


239 


• «13 


HAS "MBN 


I 




22 


2*0 




LI»2 


-12 




22 


2»1 




Ll.l 


3 


SET Rl FBR BYTE PICKUP LATER 


22 


i^S 




LI.lt 


X'FFFuO' 


SET BIT MASK IN Rll 


22 


243 




CS.10 


M3NTHS«12,2 


TEST FBR APPRBPRIATE MBNTH 


22 


2»<t 




BE 


• +3 


FBUnD M8NTH 


22 


2«5 




• 1.1 


4 


INCREMENT BYTE PAINTER 


22 


2»6 




siH.a 


*-3 




22 


2*7 




Lb.l5 


MSNTHS,1 


GET M8NTH NUMBER FBR AL3BRITHM 


22 


2»e 




LIȣ 


1 


SET ? F8R HALF»8Rj INDEXING 


22 


2»9 




lh.i: 


TMBF**3,2 


GET ?NC HALF w8RD 


22 


250 




AN3.U 


•x'OOOOOFCF' 


MASK ?uT DIGITS 


22 


251 




SLJ.l. 


-6 


SAVE UNITS DIGIT IN RH 


22 


2b? 




xkjja 


11 


TENS DIGIT IN RH (BYTE 3) 


22 


253 


• 






UNITS DIGIT IN Rl: OVTE „, 


22 


25* 




L9.10 


10 


MBVE UNITS CIjIT T9 BYTE 3 BF RIO 


22 


255 




MI. 11 


1C 


CBNvERT T8 HPX 


22 


256 




A«,1U 


11 


FBRr- YEAR 


ii 


257 




Al.10 


1900 


FBRm CBmPlETE YEAR 


ii 


25? 




CI.15 


12 


TEST IF M8NTH JAN, 9R FEB 


22 


259 




BLE 


• ♦? 


N8 


22 


26." 




AI.10 


• 1 


yes. Subtract i frbm year fbr alg 


22 


261 


« ie^i 


'H CBlE I" 


■ Rib. YEAR IN RIO 




22 


26? 




L«.l3 


10 


MBVf YEAR T6 R13 


ii 


263 




SLS.13 


•s 


Y/» 


22 


26* 




A*. 1C 


13 


V«V/« 


22 


26? 




D«.l3 


• 25 


Y/lOO 


22 


266 




SmiO 


13 


Y«Y/1..T/100 


ii 


267 




SLS.13 


• 2 


Y/*nj 


22 


268 




Aw. ID 


13 


y»Y/i..y/i „ ;.v/» jC 


ii 


269 




AI.lJ 


2 


Y«(V/4).(Y/100)*(Y/»»0).2 


22 


2 7- 




AW, U 


15 


ADO ?»"BN 


22 


S'\ 




Aw. 10 


15 


ADD ?»M9N 


22 


SI? 




AIMS 


1 


F9R" 3.('18N 4 ] | 


22 


2'3 




MI. 15 


3 


FBRf 3»(K9N*1) 


22 


27» 




Dw, 15 


■ 5 


R15«(3«(M9N»1 ) )/5 


22 


275 




A«.lO 


15 


ADD 


22 


2'6 




LM.l* 


TMBF»«.2,? 


Extract day bf Me\T-i 


22 


277 




AND, lit 


•X'OOOODFOF' 


EXT iaCT DIGITS 


22 


27a 




SLO.l* 


• 6 


SAVE DIGIT 


SI 


279 




xw.i* 


15 




SS 


2"0 




L8»l» 


1» 




ii 


2«1 




Ml.15 


10 




22 


2"? 




Aw.lt 


15 




SS 


2»3 




Aw, 10 


It 




22 


2»» 




LI, 11 





ClEaR Rll FBR DIVIDE 


22 


2'5 




X»»10 


11 


RIO TB Rll FBR Divide 


22 


£"<6 




AI,U 


1 


InCrFASE REMAINDERS fy t f«r JTCS 


22 


2«7 




Dw,io 


.7 


DIVIDE BY 7 


SS 


218 




CI. 10 





TEST F9R FRIDAY 


ii 


2"? 




BG 


• ♦2 




SS 


ii? 




LI. 10 


7 


YES, SET TB 7 


SS 


2^1 




ST«,10 


DAV8w< 




ii 


2J? 




CI, 10 


2 


TEST IF SAT BR SU . 


22 


2*3 




BG 


• ♦2 


NB 


22 


29* 




STw, 10 


H9LIDF 


YES, SET H9LIDAY FLAG 


22 


295 




6 


STRTA 


CALL EXEC INTIALUATI9N L98P 


22 


296 




SPACE 


2 




ii 


297 




SUBrBjT] 


NE PUT 




Si 


2SB 


• 


Rl MUST 


"AVE CURRENT JUFFER 


POINTER 


22 


299 


• 


R6 MAS TABLE INDEX <m8VTAb,n 


UMMBV| 


22 


300 


* 


R5 MAS I 


NTE«LEAVED INDICAT9R 


(1«NB,2.YFS) 


22 


3"1 




SPACE 


3 




22 


30? 


PjT 


LH.7 


NU"M8».6 


BET l BF *RLS TB f-8vE • 1 


22 


303 




LH,i 


M6vTAB>6 


GET ADDRESS TO STR 1MB 


22 


3 0k 




AND, 3 


•A'OOOOFFFF' 


MASK BUT UPPER HALF. PRO 


22 


3-5 




Lw,» 


7 


SAVE f . UMBER IN RA 


22 


306 




CI, 5 


' 


TFSt "■ "jTroLEAVEr 9R N8T 


22 


3"7 




bN£ 


r.TERL 


INTERLEAVED DATA 


22 


308 


PUTl 


Lw.lO 


•1,7 


SET DATA 


22 


309 




ST-., 10 


• 3,<t 




22 


310 




S«,» 


5 


ADJUST INDEX 


22 


311 




AI.7 


-1 




22 


31? 




6GEZ 


P0T1 




22 


313 



151 





AI.l 


1 csrr 




Al., 


1 AD^A 




B 


•15 EXIT 


INTE.RL 


i» M 


» DBUn 




g 


PuTl nao 


SV11 


DATA 


- 


1'J.STHS 


DATA 


X'D1C1C50D'«X'C»C5C20E', 




DATA 


X'C1D7C'9G1 , 'X'0'.C1E805'. 




DAT* 


X'ClE»D3C7'»x'ClL»C706', 




DATA 


X'D6CjE30A. , x'DSD6F50B' , 


llHtl 


GtM>8»2» 


x'IJ'.TkBF* 


Tl9F« 


DATA 


0'0'O.C 


Rn«AD 


GEN,8«2i. 


l.FHAU 


1<£AUKAj 


GEN,8»2» 


16.FRAD 




UE\.,»»*«»«1&.» 15»5»c»l»3 




DAT« 


EUROS 




DATA 


ERR8R 




CAT* 


LPBUF, 4.1800 




SPACE 


« 


f.BVTAb 


RES 


a 




DATA, 2 


ClCSF,C-ULF,C' f "ALF,DMAl_F 




DATA<2 


DIS.SECtFC.SECuFC.UfeDE 




DATA. 2 


DATE»FAlLTAB,MBLIDTBL 




BBUND 


It 


\,U^MOv 


RES 







DATA. 2 


C».Cs,D*«D*<D*»''S«N*'S*, 


BjS 


DATA INPJT ARRAY 




B9o\D 


b 


•JA«K 


RES 






AOVasCE buffer 
ECT 
NCE T9 NEXT 

LE R« FtR I 
C"\TI\uE 

X'C4C1D903' 
x'01E»D506' 
X'E2C5D7o9> 
X'C»Ce>C3oC- 



= .BJS INDICAT9R ARRAT 
RES 

(iEN#20»»<»»»«32 X 

GE\»20»*'«»l»'32 X 

BE ,i20»»'»'»'32 X 

GE.\<20«»»*' 4'32 X 

GE\j20»»«*»*»32 X 

GEh/20»*»*/»'32 X 

GEn»20»»»»«»»32 X 

(jE\<20<»,'»«»»32 X 

J.BUS INDICATOR ARRAY 
RES 

GE\»20'*«»'*'32 X 

GEn#20»*»*»*'32 X 

GE*»20<»»*»'"32 X 

GE\<20'*'»'1»32 X 

CiE,\<20»»,»<'(»32 X 

6E'*.20> *<*'»' 32 X 

GE.\«20' »•»»*» 32 X 

QEN»20»»»*»'<<32 X 
ERRSR INDICATOR ARRAY 
RES 

UEr.»20<»»*»4<32 X 

GEN#20'»#»»»»32 X 

GE.M<20»''» , "»'32 X 

fiEN»20«»<«''n32 X 

GE-N#iU»»»»»»'32 > 

GEt,»20»»»»»»'3Z ) 

6£\»20«'»'»''«'32 J 

GE .<20<»»»''»'32 J 



»0C' 
30C 
■S3C 
»0C 

soc 

30C 
'HOC 
SOC 



■SCC'i 

soc- 

80c 1 ' 
80C'/ 
83C" 
SOC' 
80C 1 ' 



■X'O' 
X'l' 
X'O' 
X'l' 
X'O' 
X'O' 
X'l' 
X'O' 



'1'yX'F' 
'I'.X'F' 



•*"»X'FI 
i4i, X'F' 
'2' jX'F' 
'3', X'F' 
'S'/X'F' 



SOC''X'0'/X'5'<X'F',0 
80C"X'll»x'5',X'Fi,0 
bOC'»X'0'/X'6'iX'F',0 
BOC'X'l '»X'6'<X'F'»0 
'BUC''X'U''X'7'»X'F < 1U 
'80C , <X'0'»X'5''X'Fl,0 
'80C''X'1'»X'5'«X'F'»0 
'80C'X'0',X'6'.X'F',0 



ftASRdiTE 

aPSVSIF 

Fc-FriPS 



-leuoss 
soNce\ 



E* u 
DATA 
DATA 
SPACE 
RES 
DATA 
DATA 
DATA 
DATA 
C*TA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
SPACE 

DSECT 
RES 

DATA'l 
DATA.l 
DATA.l 
DATA'l 
DATA'l 
DATA'l 



••(••BARR) 

1 


2 

X'80030000 
X'KOOOGOOC 
X'2OOG0O0O 
X'lOOOOCOO 
X'08030000 
X'04000000 
X' 02000000 
X'01000000 
x'00800000 
X'00*00000 
x'00200000 
X'00100000 
X'00080000 
X'OOOtOOOO 
X'00020000 
X'OOOICOOO 
X'00008000 
X'COOO*000 
x'00002000 
X'OOOGIOOO 
X'00000800 

x'ooooc»oa 

X'00000230 
X'OOOUOIOO 
X'30000083 
X'OOOOOO'tO 
X'?000C02C 
X'00030010 
X'OOOOOOOB 
X'OOOCCOO" 
X' 00000002 
X'CDOGOOOl 
2 



1»'19«0»0 

123»3»0.0 

2'12»0'0 

S'0'0'0 

<.»120>C»0 

1C»121»0»0 



POINTS 


22 


311 




22 


315 


TABLE ENTRY 


22 


316 




22 


317 


\DexlNG INTERLEAVE 


22 


318 




22 


319 




22 


320 




22 


321 




22 


322 




22 


3?3 




22 


32» 




22 


325 




22 


326 




22 


327 




22 


328 




22 


329 




22 


330 




22 


331 




22 


332 




22 


333 




22 


33* 




22 


335 




22 


336 




22 


337 




22 


338 




22 


339 




22 


310 




22 


3»1 




22 


3»2 




22 


3»3 




22 


3»» 




22 


3*5 


FFFFFFFFi 


22 


3»6 


FFFFFFFFi 


22 


3»7 


FFFFFFFFi 


22 


3*8 


FFFFFEFF' 


22 


3»9 


FFFFFFFFi 


22 


350 


FFFFFFFFi 


22 


351 


FFFFFFFFi 


22 


352 


FFFFFFFFi 


22 


353 




22 


351 




22 


355 


FFFFFFFFi 


22 


356 


FFFFFFFFi 


22 


357 


FFFFFFFF' 


22 


358 


FFFFFFFFi 


22 


359 


FFFFFFFF' 


22 


360 


FFFFFFFFi 


22 


361 


FFFFFFFFi 


22 


36? 


FFFFFFFFi 


22 


363 




22 


Sbk 




22 


365 




22 


366 




22 


367 




22 


368 




22 


369 




22 


370 




22 


371 




22 


372 




22 


373 




22 


37* 




22 


375 




22 


376 




22 


377 




?B 


378 




22 


379 




22 


385 




22 


381 




22 


382 




22 


383 




22 


381 




22 


385 




22 


386 




22 


3S7 




22 


358 




22 


3"9 




22 


390 




22 


391 




22 


392 




22 


393 




22 


39» 




22 


395 




22 


396 




22 


397 




22 


398 




22 


399 




22 


• 00 




22 


»01 




22 


»0? 




22 


♦ 33 




22 


*0» 




22 


"05 




22 


»06 




22 


»07 




22 


•38 




IZ 


»39 




22 


•10 




22 


♦11 




22 


•12 




22 


• 13 




22 


• 1* 




22 


M5 




22 


• 16 




22 


"17 




22 


MB 




22 


• 19 



152 



OATA.l 


120.9.0.0 


DATA 





DATA.l 


7.10.11.0 


DATA.l 


U.6.U.0 


DATA.l 


9.10.0.0 


DATA/1 


3.106.0.0 


DATA.l 


15.0.0.0 


DATA.l 


16. 17, CO 


DATA.l 


13,16.0.0 


OATA.l 


15.14,0,0 


DATA.l 


103. 1*1 18.0 


DATA.l 


17, I.e. 


15ATA.1 


1.20.0.0 


DATA.l 


19.21.0.0 


DATA.l 


20. 23.0.0 


OATA.l 


106.0.0.0 


DATA.l 


21.98.21,25 


DATA.l 


23,98,27.0 


DATA.l 


23,72,0,0 


DATA.l 


2», 71,0,0 


DATA.l 


71.21.0.0 


DATA 





DATA 





DATA 





DATA.l 


32,0.0,0 


DATA.) 


31.50.CC 


DATA.l 


50.39,0,0 


DATA 





DATA 





DATA 





DATA 





DATA 





DATA.l 


33»»0»0«0 


DATA.l 


39.11.0.0 


DATa.i 


10.12.0.0 


DATA.l 


53.11.0.0 


DATA 





DATA 





DATA 





DATA 





DATA 





DATA 





DATA 





DATA.l 


32.33.0.0 


DATA.l 


58.52.0.0 


DATA.l 


51.53.0.0 


DATA.l 


52.12.0.0 


DATA.l 


66.67,55.0 


DATA.l 


51,68,66,58 


DATA.J 


55,93,0,0 


DATA 





DATA.l 


55.51.0.0 


DATA.l 


73.81,60.63 


DATA.l 


59.85.61.61 


DATA.l 


60.86.87.65 


DATA.l 


70.73,63.69 


DATA.l 


62,59,64,66 


DATA.l 


63,60,65,67 


DATA.l 


61,61.90.68 


DATA.l 


69,63,67.54 


DATA.l 


66.61,68,51 


DATA.l 


67,65,93,55 


DATA.l 


70,62,66,0 


DATA.l 


71,72,69,0 


DATA.l 


26,75,70,27 


DATA.l 


25,76,0,0 


DATA.l 


72,77,59,62 


DATA.l 


96,75,27,0 


DATA.l 


27,74,76,0 


DATA.l 


75,72,77,0 


DATA.l 


76.73.84.0 


DATA 





DATA 





DATA 





DATA.l 


86.67.82.0 


DATA.l 


81.88.83.0 


OATA.l 


82.89.96.0 


OATA.l 


77,59,85,0 


DATA.l 


84,60.86.0 


OATA.l 


86.61.81.0 


DATA.l 


61.81. 88.90 


DATA.l 


87.82.89.91 


DATA.l 


8«. 83.100'D 


DATA.l 


65.87,91.93 


DATA.l 


90. 88. 94, C 


DATA 





DATA.l 


66,90.94.56 


DATA.l 


93.91.95,0 


DATA.l 


94,0,J«0 


DATA.l 


83.100.97.0 


DATA.l 


96.99,0,0 


DATA.l 


23.24.74.0 


DATA.l 


100.97,0.0 


DATA.l 


98.96.99.0 


DATA 





DATA 





DATA.l 


104.17.0.0 


DATA.l 


105.103.0.0 


DATA.l 


106<104.0»0 


DATA.l 


12.22.105.0 


DATA 





DATA 





DATA 





DATA 





DATA 





DATA 






7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

?3 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

15 

36 

37 

38 

•>9 

10 

11 

12 

13 

14 

15 
16 
17 
48 

49 

SO 
51 
52 
53 

Si 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

8b 

86 

87 

88 

89 

90 

91 

98 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



22 


420 


22 


»21 


22 


4?2 


22 


123 


22 


124 


22 


425 


22 


426 


22 


4?7 


22 


42? 


22 


429 


22 


•3- 


22 


•31 


22 


13? 


22 


133 


22 


131 


22 


135 


22 


136 


22 


137 


22 


43! 


22 


139 


22 


442 


22 


14] 


22 


11? 


22 


i«3 


22 


114 


22 


"15 


22 


116 


?2 


117 


22 


US 


22 


119 


25 


45"! 


22 


ibl 


22 


•52 


22 


153 


?2 


151 


22 


155 


22 


156 


22 


157 


22 


15! 


22 


159 


22 


160 


22 


461 


22 


16? 


22 


463 


22 


464 


22 


46? 


22 


466 


22 


467 


22 


468 


22 


449 


22 


470 


22 


471 


22 


47? 


22 


473 


22 


474 


22 


475 


22 


476 


22 


477 


22 


478 


22 


479 


22 


•80 


22 


481 


22 


482 


22 


483 


22 


484 


22 


485 


22 


486 


22 


487 


22 


488 


22 


489 


22 


490 


22 


491 


22 


492 


22 


493 


82 


494 


22 


495 


22 


496 


22 


497 


22 


498 


22 


499 


22 


500 


22 


501 


22 


502 


22 


503 


22 


504 


22 


505 


22 


506 


22 


507 


22 


508 


22 


509 


22 


510 


22 


511 


22 


512 


22 


513 


22 


514 


22 


515 


22 


516 


22 


517 


22 


518 


22 


519 


22 


520 


22 


521 


22 


522 


22 


523 


22 


524 


22 


525 



153 





DATA 







DATA 







DATA 







DATA 







DATA 







DATA 







DATA 







DATA/l 


5.7»0'0 




DATA,1 


6, 122/0.0 




DATa.i 


12l'123»0»0 




DATa.i 


122/2»0«0 




DATA 





-ILDSPL 


DATA 


0/ O'O'O 


hLUBff 


DAT* 


0/ 1.0,0 


3ATEM 


DATA 





abiE-i 


DATA 





8FKJP 


RES 
SPACE 2 


12* 


BL*5 


DSSCT 





IP*0 


DATA 





ITKDlv 


DATA 




BCCJPA.'.CY »E 


IGHTIN3 FACT9 



113 

11* 
115 
116 
117 

118 
119 
120 
121 
122 
123 
12* 



22 526 

22 627 



V6LU-IE AMD SPEED LIMITS 



JL 1 M 

bL*7 

ALL 
ABt) 



INTERv? 



<CTC 



dL*« 

11 

VDAL'** 



TTJ 

TT7 



OLK9 
DS^A 



DATA 

SPACE 
DSECT 
EQU 
DATA 
DATA 
RES 
DATA, 
DATA, 
DATA,] 
DATA, 
DATA, 
DAT,., 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
SPALL 
RES 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
DATA, 
DATA,] 
DATA/ 
SPACE 
DATA 
DATA 
RES 

DATa.1 
DATa,1 
DATA,] 
DATA.I 
DATA,] 
DATA,] 
DATA,] 
DATA, ] 
DATA,] 
DATA,1 
DATA,] 
SPACE 

DATA 
• •• VJL 
DATA,1 
DATa.1 
DATa.1 
DATA,1 
DATA,l 
BBJfvD 
SPALL 
DSEL' 
DATA 

••• NQA 

RES 

DATa.1 
DATA,] 

DATA,] 
DATA,] 
DATA,] 

DATA,] 

DATA,] 

DATa.i 

DAT»,1 

DATA,] 

DATA.1 

BBO'iD 

SPALE 

DATA 

DATA 

SPACE 

DSECT 

DATA 



,66,100.800 



X>FFFFFFFF' 

ALL«O»ALL«0.ALL.O»»L.L»P 

ALL«0<*LL.C>ALL,3<ALL.O 



.8.6 
,6«8 
.16, 
6.8, 
4/4/ 
6.8, 
8.9, 

a, 6, 

6,9, 
.8.8 
6,2, 



.0.16 
.16,8 
«1A»8 
4'4»6 
6. <., 2 
.9,8. 
0» hi 6 
6,9,6 
8.6.1 
«6,4< 



9, 6, 4 
««9, 16 
6,6, 4, 8 
4,8. A 
S»9 
'16.6 
6,6 
6,6 
.0.0 
,*,6 
12* C«MTR8LLERS 



3,*,3.3.*.0.*.0,8,7.*,3 
4,5,6,5, 5, 3« 3. 6. *. 3» */ 8 
.1»11»6,3.6«*<7»»,3«»»3,5 

7,*,5,»»*.».3'3.*.3,5,3 
3«3,3,3»7,6,*,»,3,0'5,6 
5, *, 5, 5, 8, 8, 5, 6, 4, 4/ 5, 4 

*/5»4«5»4»0'0'0«4'*»*.* 
5/5, 4,4/3/5/7/4/4/4/4/4 
5,i,»,3»0,0»5»6.»,9.0»C 

4.4«5<5»3»4»4>4,3<»»3>* 

8,0<3,C 12* CONTROLLERS 

2 

o» n»o»o»o»o» o.o.o.o 
0.0'O.C. o»o»o 



0/2/2/2.1 
O'0'O' 
1/1.2, 
O'O'O' 

O'O'O' 

O'l'l- 
O'O'O' 
U'0'3, 
0'2'0, 
2»-«0- 



<J»?, 
0/0/ 

2»0. 1 
O'CO 
O'O'O 
O'O'O 
O'O.O 
l'O.l 
0> J,0 
O'O.O 



1/3.0 

0/1.2 
0.0.0 
0/0' 
O'O/O 
O'O'O 
O'O'O 
O'O'O 
l'O'O 
O'O'O 

12* CNTRBILERS 



i«c 

0/0 



NUMBER 8F CRITICAL LINKS ••« 

, J, s «c,j>o,o, *, */*>*, 1,1,*/ 1/*/ 1/0/>/0/:/?< 0,0,0 

»/O»0'0/0'0/0/0/L/ 1/0/ l'O'O' 1'., 3/0/ l/0« 0/0 
, 1»C/ 1/0/ 1/0/?/ 0» 0/1' 0/3/ 0/2/2/2/ 0/3/ 3,0,0' 2' ?»0 
»D»3<0'2/2/l/?/»/2/C'l/C 1< l'O/O, 1/0/1/ r, j,'J/0«0 
,0,o»0/0/0/0/3/0/l'C/0'0»0'l'*'J»3 



NUMBER 8F DETECT ASSIGNED T6 LIN< ••• 



3< 
1» 
3. 
2»1 
1,1 
3/ 
3, 
3» 
1' 
1' 



,1,2, 1,3/2,1, 2, 3/2 

1.2.2.3.2.3,2.2/2/2 
l'l<l/l<l'l<l'3/3/l 
1.3.3.1.3.1.1.2.3/2 
»3»3«3»2'3. 1»3'1»1» 
13/3/1/3/3/1/1,1/1/ 
3/3.3/ 1/3/3.1.1.1/3 
3,3.3. 1.3.3.3' J. 1.3 
1/3/1/3.3.3,3,3.1.1 
3.1.2.3.2.1,1.1.1.3 
Ll.1.1.1.1.1.1.1.1 



1/1 

»2«2 

.3.3 

.1.2 

l'l 

1.3 

.2.2 

.1.3 

"l'l 

.2.2 

'l'l 



l'l 

.3.3 

'1'3 

l'l' 

3/3/ 

1/3 

3.3 

3.1 

2,1 

1 



2,2, 
1.3, 

3.3, 



.3.2 

l.l'l 

3'3»1 

1/3.3 

3»1 

l'l 

1»1»3 

3.2 

l'l'l 

l'l'l 



1 1 00^' 
'SAOO' 



22 
22 
Zi 
22 
22 
22 
22 



22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
22 
ZZ 
22 



22 
22 

22 
22 
22 
22 
22 
22 
22 
22 
22 
22 



22 
22 
22 
22 
22 
22 



22 
ZZ 
22 



528 
529 
530 
531 
532 
533 
53* 



22 535 

22 536 

22 537 

22 538 



539 
540 
5*1 
54? 
5*3 
544 
545 
546 
547 
548 
549 
550 
551 



22 552 

22 553 

22 55* 

22 555 



556 
557 
558 
559 

560 
561 
5A? 
563 
564 
565 
566 
567 
56B 
569 
570 



22 57] 

22 572 

22 573 

22 574 



575 
576 
577 
578 
579 

bso 

681 
58? 
583 
584 
5«5 
586 
587 
588 



22 689 

22 590 

22 591 

22 592 

22 593 

22 594 

22 695 

22 596 



597 
598 
599 
600 
611 
602 
613 
6.1* 
605 
606 
607 
608 



22 609 

22 610 

22 611 

22 61? 



613 
61* 
615 
616 
617 
618 



22 619 

ZZ 62P 

22 62] 

22 622 

22 623 

22 62* 

ZZ 625 

ZZ 626 



627 
628 
629 



22 630 
22 631 



154 



DATA 

DATA.l l'1'l.l.l'l'l'l.l.l PAT 2 600-830 

DATA.l l'l. 1,1.1 

DATA.l O'O'O'O'O'O'O 

DATA.l O/0'O/O.O'O 

DATA.l 0'0'0.0,0'0'0'C.O'O 

OATA.l 2.2,2,2,2,2,2,2 PAT 3 1530»173j 

DATA.l 3.3,3.3,3 , 

UATA.l PAT 1 1845-600 

DATA O'O'O'O.O 

SPACE s 

FPPF DATA 2 

SPACE 2 

K8CC DATA 8000 . 200(1 AT 62 

<h DATA X'FF" • 

LFJPN DATA, 2 612,933,2704,1866 

^r RES 

DATA.l 10M8. »3» *0 

TRULY DATA 

SPACE 2 

SECTLKN Elau * 

OATa.2 0'1'2'3<4»5'6/7,8.9»10»11.12. 13. 14.15.16,17 

DATA. 2 49.50.91.53.54.55.56 

DATA. 2 93.118.144.147 

DATA. 2 18, 19. 20. 21 »22. 23. 24. 25. 26. 27. 28. 29. 30.31. 32. 31 

DAT A. 2 34, 35, 36, 37, 38 « 39, 4Q« 4 1,42. 43 ,44, 45. 4 , 47, 48 

DATA. 2 52 

DATA. 2 57, 58. 59. 60. 61><>2. 63. 64. 65. 66. 67, 68. 65.70. 7]. 72, 73 

DATA, 2 74, 75, 76. 77. 7b. 79. 80. 81, 82. 83.8*. 85. 86. 87. S8. 89 

DAT A. 2 90«91»92,94»95»96»97,98»99»lO0'l01'102'l03'lo4 

DATA, 2 105. 106. 107.108,109, 11 0,1 11, 112. 11 3. 11 4, 11 5. 116 

DATA, 2 11 7, a 9, 120,1 21, 122. 123. 1 24, 125, 126, 127, 128 

DATA, 2 1 29. 1 30. 1 31< 1 32. 133. 134, ]35. 1^6. ]37. 138,1 39, l»o 

DATA, 2 141,142,14 3, 145. 146. 146.] 49. I5u< 15 1,152 

DATA. 2 153* 154. 155. 156, 157. 158. 159.160. 161.162. 1 63.16* 

DATA. 2 165.166.167.168,169, 170, 171,1 72. 173. 174. 175.1 76 

DATA, 2 1 77. 1 78. 1 79. 1 80, 181, 182, l 83, 164, 185, 1*6,1 S7, 1H? 

DATA, 2 1 89, 1 90. 1 9 1«1»2, 193, 194,195,196 

DATA, 2 197, 198, 199, 200, 201, 202, 203,204, 205. 2j6.?07 

0ATA.2 2u8»2t'9.210< 211. 212/ 213. 214. 215. 216. 2l7.218. 21" 

DATA. 2 220' 221' 222' 223. 224. 225, 226. 227, 228, 229,?30.23l 

DAT A. 2 232. 233. 234, 235, 236. 237, 238 . 239. 24 .24 1.242.2»3 

DATA. g 244. 245. 246. 247, 248. 249, 250. 251. 202. 253. 254. 255 

DATA. 2 256«2b7, 258. 2b9, 260' 261, 262. 2^.3. 264. 265. 266, 267 

DATA, 2 268,269,270.271,272.273.274,275 

BBUND 4 

SPACE 2 

SLFOP*, RES 

IN»» 08 44 

DATA»1 IN»»»1 
FIN 

nIAVMPAT RES 

* data nmanpat 

avhhat res 

DATA,] 0,1.2«3,4,5,6,7 

RES 3 

SPACE 2 

clL*10 DSECT 

C1CSCT RES 

DATA X'OO028O0J' 

DATA O'I'O 

DATA X'OOFOOOOO' 

DATA O'O 

DATA X'OOOOOIAJ' 

DATA 

DATA X'00000628' 

DATA X'5D935BAC' 

DATA X'BOOOOOOO' 

DATA X'O0OJO002' 

data x'aicscaso 1 

DATA X'OOOOOOOO' 

DATA X'00002000' 

SPACE 2 

CIC.SYS RES 

DATA x ' 00^28002' 'X' 00508000 '«X' 8 1C8CEA8'«X 10 14886AQ" 

DATA x , 5D985BAC'.X'559859^C',X'^00C2lA0 , ,X'A^nC^tA0 , 

CTLSEC EQU * 

DATA X'BOOFFAOO' • SECTI6M 1 

DATA 0,0,0 

data x';efoo4Co' • sectibn 2 

DATA 0,0 

DATA A'03C001E0' 

DATA X'OOOOCIEO' • SECTI6N 3 

DATA X'00O0073F' 

DATA X'FFFSFFED' 

DATA XIFOOOJOOO' 

DATA XiOOOOOOlFi . SECTI8N 4 

DATA X'FFFFF8C0' 

DATA X-O000J012' 

DATA X'COOFFEOO' 

CTLSYS E3U * 

DATA A'FfFFFFFFi . SYSTE'W IDE Cf^TRBLLER 

DATA X'FFFFFFFF' . MASK 

DATA X'FFF8FFFF' 

DATA X'F3CEFFE0' 

C6JSEC RES 

DATa.i 1'2,2,2,2,2'2'C,2»2'2'2 

DATA'l 1,1,1,1,1,1,1,1.1,2,1,3 

DATA,1 3, 3'3,4,4,4,4, 4, 4(4.4.4 

DATA.l 4.4.4,4,4,4,4.4,4,4,4,4 

[ATA.i 4.4.4.4.4,3.3.3.4,4.3/3 

DATA.l 3,3,3,3,3,3,3,3,3,3,3,3 

DATA.l 3'3'3»3,3'0,0'0,3'3'3»3 

DATA.l 3/3, 3.3.3. 3,3, 4, 3, 3, 4, 3 

DATA.l 3/0/3/3/0/0/2/2/?/2»J/0 

DATA.l 4»4«4'4,4»4,4,4,4,4,4,2 

DATA.l 2,2«2.0 124 C8NTR8LLERS 



22 


632 


22 


633 


22 


634 


22 


635 


22 


636 


22 


637 


22 


638 


22 


639 


22 


64C 


22 


641 


22 


64? 


22 


643 


22 


644 


22 


645 


22 


646 


22 


647 


22 


648 


22 


649 


22 


650 


22 


651 


it 


652 


22 


653 


22 


654 


22 


655 


22 


656 


22 


657 


22 


658 


22 


659 


22 


653 


22 


661 


22 


662 


22 


663 


22 


664 


22 


665 


22 


666 


Z2 


667 


22 


668 


22 


669 


22 


670 


22 


671 


22 


672 


22 


6/3 


22 


674 


22 


6/5 


22 


676 


22 


677 


22 


678 


22 


679 


22 


680 


22 


681 


22 


682 


22 


683 


22 


684 


32 


685 


22 


686 


22 


687 


22 


688 


22 


689 


22 


691 


22 


691 


22 


692 


22 


693 


22 


694 


22 


695 


22 


696 


22 


697 


22 


698 


22 


699 


22 


700 


22 


701 


22 


702 


22 


703 


21 


704 


22 


705 


22 


706 


22 


707 


22 


70S 


22 


709 


22 


710 


22 


711 


22 


712 


iZ 


713 


22 


714 


22 


715 


22 


716 


22 


717 


22 


718 


22 


719 


22 


720 


22 


721 


22 


722 


22 


723 


22 


724 


22 


725 


22 


726 


22 


727 


22 


728 


22 


729 


22 


730 


22 


731 


22 


732 


22 


733 


22 


734 


22 


735 


22 


736 


22 


737 


22 


738 



155 



SPACE 2 22 7 39 

C8NTZS DATA.l 3. 1.2,3.4, 5.6.7. 8, 9. 10.11. 12. 13. 14.15. 16, 17, 18 22 740 

D ATA.l 19,^0»li.22.23,2*.25.26.27,2e.29.30»31.32»33 22 7 M 

DATA.l 3i,»35»36'37»38,39,*0»in.42.43»44«45»46.*7»<.8 22 7»? 

DATa.1 49, 5j. 51.52. =3, 5*. 55. 5*. 57, 58.59. 60.61.62.63 22 7*3 

DATA.l Sli, 65.66. 67. 68. 69. 70.7l, 72 22 7*» 

68j\D 4 22 7 *5 

LNKCUN RES 3 22 746 

DATA.l 1*. 14. 14.14,14, 16. 16.16.16. 16< 16. 17, 17, 17.15.19. 19 22 7»7 

DATA.l 19,8,>..*»5»5,>!.8»9|9»9»9»9. 10'13.13«10>11<11 22 7 »9 

DATa.i li,11.119.119.1i9.119»lf;.120.12D'120.1?».l , 2.l22 22 749 

6ATA.1 2:»20»2o, 96. 22. ?2. 22.22, ?3»23. 23.23.53. 53.53. 53 22 75; 

CATa.i 5».5l.5».b».5S.55.58.59,5».59.59.i9,6j.63.6;.62 22 751 

DATA.l 63. 64. 6-.. 6». 65.^5. 6b. 65. 65. 66. 66. 67, 15. 67. 67, 67 22 7 5? 

DATA.l 66.68»68.68.69.^9.63.69,7-.70.7l.7l,7i.72.7j.7?«72 22 753 

DATA.l 73. 73.73, 7n.13.7A.74. 7*. 85. 75. 75.62,76.76.76 22 754 

DATA/1 85. 80. 80. 8o» 63. 81. 81.81, 81. 6o« 82. 82, 82. 8?»13. S3 22 755 

DATA.l 83.15. 84.84.84.fc*. 85. 86, 86. 86. 86. 87. 87. 87.87. 88. 88 22 '56 

DATA.l 88, 88. 89. 89. 95, 90<90. 92. 92. 9?. 92, 93, 93. 93. 9d. 95.95 22 757 

DATA.l 96.67.96.96.96,98.98.98,98.98.99,99,99.99.30.30 22 7 59 

DATA.l 30»30»30<31. 32.32. 32.36.38.38.39.39.39. 39.4;), * »40 22 7 59 

DATA.l 40.41.41.41. 41. *2»42»42,42, 13. **,«*, 44, 45,45.46.46 22 760 

DATA.l »6.»6.»7.<l7,»;.(,J.»8,»9,»9.i,9.»9.5o.5c»5l.5i.5?.52 22 7*1 

DATA.l 52.56. 56. 57, 11*, Ji»»118, 118, 123. 123, 123. 123. 123.123 22 762 

DATA.l 123.123,123.123,123.123,123.123.123.123 22 763 

DATA.l 123.123.123.123,123 22 76* 

BSUND * 22 765 

TIIMCh TEXT '0000000000000000' 22 766 

ISl DATA.l 0«3«U'0»O»0»O»0»C»0»2»;>»4,4,4,»,4,7,7»7,7,7 22 767 

DATA.l 7, 7, 7. 7.7, 7. 7.7.7.7.7, 7.7. 7, 7.7. 7, 7.9. 9. 11 22 768 

DATA.l 11. 11M3.13. 13, 13. 1»,1A, !«,]». l», 17.19. t9. 21 22 769 

DATA.l 21. 2*. 27. 27. 27, 27, 28. 29. 31. 31« 33. 33. 36. 36. 39 22 77;; 

DATA.l 4?, 42, 42.43.44, 4»»44»44. 44, 46.46.47. 48, 48.48 22 77l 

DATA.l 52. 52*52.54.54, 57. 58.58, 58.6C60. 64. 64, 64. A4 22 77? 

DATA.l 6*. 6*. 6*. 6*. 6*. 6*. 64. 6». 6». 6t» 6*. 64.66. 66. 66 22 773 

DATA.l 66.66.68.70.70.72.73 22 774 

BSumD * 22 775 

SPACE 2 22 776 

BLM1 DSECT 22 777 

*S01b DATA 0*0. 0.0»3»0»0.0»0«0»0«0.0»3»0'0»3'0«0. 0.3.0. 0.0<0«C 22 778 

DATA 0.0.0.0,0.0 22 779 

1615 D*TA 0»0»0<0>0«0. 0»C»0<0»0»0.0«C. O'O.O'O. CO. O'O.O.O'O 22 750 

DATA 0.0. 0»0.0< O'O'O.O'O. 0.0. 0.0.0' 0.0. 0.0. 0.0. 0.0. O'O 22 781 

DATA O.O'0. 0.0. 0.0. 0.0< 0.0.0. 0.0 22 78? 

K« DATA 2000 8CC .SIGHTING FACTS'? 22 753 

LINKOJ RE.S 22 754 

DATA.l 3. 0. 0. 2. 2. 3. 3'0. 2« 2. 1. 3, 2, 3. 2. 5. 7. 6. 5. 5. r, 2. 6. 6. 1«3 22 785 

DATA.i 0'2>1<1>3.5.2.6.3.0<2.1.3'0.2.1>3>0<2>1>0'2>1>5>2<6 22 '86 

DATA.l 2. 5. 0'6> 1'5. 3. 0. 1'5. 0'2. 6> 3. 0'6. 1.2. 1.3.2, 1.3.0.2' 3 22 757 

DATA.l 0,2.1,0.0.1.1'3.3.5»6.1.3.0'3. 1" 0.0. L5.D.2. 6'3< 5.6 22 758 

DATA.l 1.0»2»3>2.1.3»0»0'2'3.2,1.7.2»3»»»2,1,2»1,2»D.<.»2.0 22 789 

DATA.l 0.2. 1,2. 0.0*2. I. 1.1. 0.0.2.1. 3.2. 1.3.0. j. ?. c. 2. 3. 0. 2 22 790 

DATA.l l,3.3.2.1,3,j.2<1.0.1.0.1.1.3.2.0.1.3.2<1.2o.2,l>3 22 791 

DATA.l 0.2. 1. 3. 0. 0» 24l»3'0. 2<1. 3.3. 0'2'1'3. 3. 2. 2.1.3.2.3.2 22 79? 

DATA.l 1.1.3.3»2.2.3»0.2»l'3»3,0O>l'3,1.1.3.0.3.0.2-.2'2«2 22 793 

DATA.l 1»0»2.3.3«0'2»0.2.0.1<0.2'1'3'0.1»0'2.3, 1 22 79k 

BSuND * 22 795 

. ••• NDBL, MJMBER BF DETECT UK LIS* ••• 22 796 

NDBl RES 22 797 

DATA.l 1, 1.1.1.1. 1.1. 1.1. 1»1»1»1.3>1'1. 1.1.1.1. 1>0. 1<1'1»1 22 798 

DATA.l 1,1,1,1,1.1.1.1.1.1.1,1.1.1.1,1.1.1.1.1.1.1.1.1.1.1 22 799 

DATA.l 1.1.1,1.1.1.1.1.1,1.1.1,1.1.1.1.1.1.0.1.1.1.1.1.1.1 22 800 

DATA.l 1,1.1,1,1,0.1.1.1.1.1.1.1.1.1.1.1.1.0.1.1.1.0.1. 3.1 22 801 

DATA.l 1,1,1.1.1, 1,1.1.1. 1.0.1.1. 0.1.1. 1.1. l'l.l.l'l'l.l'l 22 802 

DATA.l 1,1.1.1.1.1,1,1,1 .1 .1,< -•-« .1 .1 ,l,i .1 .t .1 .1,1,1 .1 •< »? 813 

DATA.l 1,1, 1.1, 1,1,1.1. 1.1. 1.1. l.l.l.W 1.1.1. l.l.l'l'l.l'l 22 80* 

DATA.l 1,1, 1,1.1.1. 1.1. 1.1. 1.1.!.1»1»1'1.1.1'1«1»1M.1»1<1 |2 "OS 

OATA.l 1,1, 1*1*1*1, 1»1»1*1»1»1*1.1<1»1'1.1.1»1»1»1'1*1. 1*1 \\ I™ 

DATA.l l,l,l,l.l»l»l»l*l*l»l»l»l*l*l»l'l»l*l'l'l 

DATA.l 

DATA 0.0,0.0.0 

B8UN0 » 

SPACE 2 

... NU^BEH AND UST 8F N8N-EX1STANT C8NTR8LLERS 22 81? 

N8NC8N* DATA 13 11 HI 

M8C8NT DATA.l 0.8.78.79.80.92.95.98.101.102.107.108 22 81 * 

DATA.l 112 || l\l 

22 817 

22 818 

22 819 

LENGTH 8F BL6CK F8R EACi LIN* (FT) •• 22 820 

DATA, 2 2b 3 , 3*2, 3*2, 300, 210, 385,325, ?10,*25, 377, 372, *|5, 385 ?i 821 

DATA, 2 24-*24C*45c»S5,s4c*45o*3*5,21'.«385,45- : ,4ii.365.210 22 B 2? 

DATA, 2 337.210.270'210.210'32*.210'335.210'2l0.210.2l0'210 || »|3 

DATA.l 21-,,210.210'21C 210.210. 210. 210.210' 2l0< 370. 100'»50 22 »2* 

DATA, 2 »»-,»io.2»0'390.*O0'175.5c'25:<31O. 371.3*8.200. 3*2 22 8 ? 5 

DATA, 2 ?63.38», 365. 320. 330» 350.3**. 210' 300-355. 323. 373. 135 22 »26 

DATA, 2 3c2. 365, 3 U0 . 310. 3l7,3i , 295, »00'2 7 |. 210. 36n.2lg.*5Q 22 »2 7 

DATA,! 115.300. 210'35«.*00'3oS. 3*7. 210.*05.36S.A 5. 36?. 377 22 828 

DATA. 2 gj^.385. 1*5. 3b*. 375. 30*. 210. 290. 310' 383.200. 250'*»0 22 "" 

DATA. 2 »5,.*50.300'235.l80'3*0.38S.365.?95.3l2.305.37 .»20 22 "0 

D*TA,2 310'*05,*50.36C.283.325,350.370.*50.305.305.305.»35 22 »31 

DATA.l *5o.3*0.312.365, 310.297, 325.365.29 .372.365.310'190 ff |*| 

DATA.i ?95. 357, 274, 366, 2 9», 125, 290.369, 325. 350. 325. 300«3JO 22 833 

DATA. 2 21-, 265, 21 .37o. 322.210.2*0. 302.180. 360.2 7 5. »1 . 3*5 22 »34 

DATA, 2 3i<t,2ic. 375. 360. 282. 315.337, 286, 335. 3 8.200.320'210 22 "35 

DATA, 2 275, 365, 351,366, 175,369,235, 210. »25.3l0. *5o.359. 210 22 "6 

DATA.i 339.339.45 a »3B3, 400*365, 377, 365, 365. 365. 3o5,3o5. 110 22 "7 

DATA. 2 no. 4^0. 364, 400. 371. 450. 110. 285. 285. 4 3. 400. 305. 305 22 "8 

DATA, 2 no. 380. 365, 300. 210. 365. 210. 250. 45 .290. 250. 382. 35* 22 "9 

DATA. 2 2i ,2io. 210'230« 355. 368. 410.365,410.200. 550. 55 .55o 22 »*C 

DATA.2 45 5 .4o0.400M00.5b0.56o.55o.400'55o.l80.l80 || »*1 

DATA. 2 210.210.210.210.210 



BSUnD 

T8SU DATA 

SPACE 2 

4L*12 DSECT 



22 808 

22 809 

22 810 

22 811 



B8UW0 
SPACE 



22 84? 
22 843 
22 844 



156 



oatbik data i 

JJ DATA 

Ll^KSI DATA, 2 0,29/6..l/l9»*255.255 

SPACE 2 

PATNJh DATA -1*-1/-1 

. ••• 15 "I'-IUTE H EPSRT FLAG 

PMFLG DATA 1 

SECCBVS! RES a 

DATA/1 r,.ii,V»7i.,115 

BBU'JD * 

SPACE 2 

SECC8M (.ATA.i 0»l2,l3/l*/l5/16/l7,18*i9/20/22/l/2/3/*/S/6z8/9 

DATa.i 10*11/21/10? 

DATA/ 1 1„3» 10**105/ 119/ 120/ 121/ 122/ 23/ 2*/ 25 

DATA/l 26/53/5<./55zS8/«9/6,,/61/62/63/6»./65/66/67/6a/69 

DATAzl 7C / 71,72,73, 7*/ 75/ 76/ 80/81/ 82/ 93/ 8*, 85/ 86/ 87/ 8R 

DATA/; 89/00/92/93/95/96,97,98,99,27,28,29,30/31.32.33/3* 

DATA/1 35/36/37/3B/39/» /»l/<t2,»3»»*.*5.»6.*7»*8.*9»5o 

DATa/1 51/ 52/ b6/57, 91/ 9», 108/109/ 110/111/112/ 113/ 11* 

DATA.l 115/116/117/118 

BBUjvO * 

SPACE 2 

SSF ■< DATA 

SPACE 2 

SLMJ CSECT 

• «•• 0/.L 0ETECT8R-LI\IK ARFVAV ••• 

3«L RES 

DATA/2 18/19/ 19*19*20/ 20/ 21/ 22/ 23/ 23/ 23/ 2*/ 2*/ 2*/ 25/ 25/ 26 

DATA/ 2 26/ 26, 27/ 27, 28/ 29/ 29/ 30/ 3^/ 31/ 31/ 31/ 32/ 3?. 33/ 33/ 33 

CATA/2 3*/ 3*/ 35/ 35/ 36/ 36/ 37/37*1 3*1/ lz lz 2z 2/ 2, 3/ */ »/ 5/ 6/ 6/6 

OAT*/ 2 7/7,8/9/9/9* 10* 10*10/ 11' 11' 12/ l»z 15/ 16, 17, »9,5 ,51 

DATA, 2 52/ 53/5*/ 55/ 56/ 57/ 58/ 59, 6?/ 19*/ I9»*l95* 1 96* l 96, 196 

DATA, 2 197* 197* 197* 198, 198. 198, 199, 200* 200* ?00< 201, 2 32* ?02 

DATA, 2 203* 20**205* 206, ?06» 206* 207* 207* 208* 208,208, 209* 209 

DATA, 2 209* 21 0*21 1*21 1.21 1/212/ 21 3/ 213/ 213* 21**21*. 21**215 

DATA* 2 215* 215* 2 16/ 216/ 2 16/ 21 7/ 2 17/ 2 17, 218* 219*220/ 221/ 22? 

DATA* 2 223* 223, 223* 22*. 225. 225. 225. 226. 227* 228. 229. 23o»23l 

DATA. 2 232* 233. 23**235, 235* 235* 236. 236* 236* 237. 238. 238* 239 

DAT A. 2 239»239*2*0z2*0z2*lz2»2,2»3»2«*»2»5»2»5.?»5/2»6»2*6 

DATA* 2 2*6* 2*7* 2*7* 61/ 61/ 61/ 62/ 62/ 62/ 63/ 6*/ 6*/ 6*/ 65/ 65/ 65 

DATA/ 2 66/ 66/ 66/ 67/ 67/ 67/ 68. 68, 68* 69* 7o* 2*8* 2*8. 2<(9< 2*9* 250 

DATA* 2 71*71*71.72. 72*73* 73* 73. 7**7*. 7*, 75. 75* 75*76* 76* 76 

DATA*2 77* 78*78*78. 79* 79/ 79/ 80/8l/8l/8l/82/82/S2/83/8*/8» 

DATA/2 8*/ 85/86/87*87*88* 88*88/89/ 89/90/91/ 92/ 92/93/9*/ 9* 

DATA/ 2 9*/ 95* 96/ 96/ 96/ 97/ 97/ 97, 98, 98/ 99/ lr 3/ 100/ 100/ 1 01' 102 

DATA/ 2 102/ 102/ 103/ 103/ 103/ 10*/ 10*/ 105/ 106/ 107/ 107/ 107/ 108 

DATA/ 2 108/108/109/109/109/110»110/111/111/111/112/113/113 

DATA/ 2 1 13/ 1 1*» 1 15, 1 16* 1 17* 118* 119.12c* 121, o*c* 122*123 

DAT A* 2 1 23, 1 23. i2*» 12*. i 2t» 125* 125. 125* 126, 126* 1?6* 127,128 

DATA, 2 128,128,129, 130/ 131/ 132, 133/ 133/ 1 33/ 1 3*/ 1 3*. 1 3»« 1 35 

DAT A/ 2 136/136/136/137/ [37/137,138/ 139/1*0, 1*1/ 1*2/'.* 3/ 1*» 

DATA/2 1**/ 1***1*5* 1*5, 1*5/ 1*6/1*6/ 1*6/ 1*7/ l»7/l»7/l.«/l»8 

DATA/ 2 1*8/1*9/150,150,150,151,151,151/152/152/ 152/153,153 

DATA, 2 153/ 15*/ 155/ 156, 156/ 156, 157/ 157/ 157, 158, 158,158, 1*9 

DATA, 2 159, 159,160,160, 160/ 161. 1*2, 162. 162/ 163/ 16 3, 163/ 16. 

DAT A. 2 165/166/167/167,167. 168. 169, 1 69, 17 1, 170, 1 7 o, 17?, 1 72 

DATA, 2 172, 173, 173/ 173/ 17*/ 17*, 175/176/176/176/ 177,178/179 

DATA/ 2 180/191/ 181/ 181,182/182,182/ 183/183/ 18*/ 18*/ 18»/ 185 

DATa/2 185/ 185/ 1 86 / 186/ 186/187, IS 8* 188* 188.1 39, 1»9,1A?< 190 

DATA, 2 190,190,191,191,191*192,193,193,193,251,251,251,252 

DATA, 2 2ba» 252. 253. 25**38*38* 39* 39, *0,*0,*1**1.*2»»2.»3»*3 

DATA, 2 **,**«*5«*5.*6*i l 6»*7,*7, ♦8.18/ 255/ 256/ 257/ 258/ 259 

DATA/ 2 260/ 26 1/262/ 263/ 26*/ 265/ 266/ 267, 268/ 269/ ?70 

BBUvD * 
. «... DKLP UITECT8R «!TM LlKK P3SITIBA ••« 

J/.LP RES 

DATA X'bCBE77AD' 

DATA X'5AB6A596' 

DATA XiC02*096D' 

DATA X"5»ACPAAD' 

DATA X'B682B802' 

DATA XID560OEB5' 

DATa XI6DB5A5AD' 

DATA X'F56ADD28' 

DATA X'12BD90EC 

DATA x'bAEAB212' 

DATA X'0DD*355A' 

DATA X'05b6C5D6' 

DATA X , A6DB568A' 

DATA X'35B2s5B5' 

DATA X'B*E0AB6A' 

DATA X " 55555000' 

DAT A J^MigOOOOoni 

68UND * 

SPACE 2 

EBOC DATA 1 

FTAB DATA 

FTAB«<*0 DATA 1 

10E1F RES 

DB1 NLR/* 

DATA X'o20?C202' 

SPACE ? 

31*1* DSECT o 

. FAIL TAB LENGTHS MUST BE ST9RED SEQUENTIALLY 

CSNLtM, DATA 

OtTLESB D*TA 

CB"UEN(> DATA 

BDETLEN3 DATA 

BCB^LE^O DATA 

CBNTL\ RES 

DATA .1/-1/-1 1 

DATA -1/-1/-1 ? 

DATA -1,-1, «1 3 

DAT* -1,-1,-1 * 

DATA -1<-1»-1 5 

DATA -1<-1,-1 fc 



?2 


8*5 


22 


8*6 


22 


8*7 


22 


8*8 


22 


8*9 


ZZ 


850 


22 


8-1 


22 


852 


22 


853 


22 


85* 


22 


855 


22 


856 


22 


857 


22 


858 


22 


859 


22 


860 


22 


861 


22 


862 


22 


863 


22 


86* 


22 


865 


ZZ 


866 


22 


867 


?2 


868 


2? 


869 


?? 


870 


?? 


871 


22 


87? 


22 


873 


22 


87* 


22 


875 


22 


876 


ZZ 


877 


22 


878 


22 


879 


22 


880 


22 


881 


22 


882 


22 


883 


22 


88* 


22 


885 


22 


886 


22 


887 


22 


883 


22 


889 


22 


890 


22 


891 


22 


892 


22 


893 


22 


89* 


ZZ 


895 


22 


896 


22 


897 


22 


898 


22 


899 


22 


900 


ZZ 


901 


ZZ 


902 


22 


903 


22 


90* 


ZZ 


905 


ZZ 


906 


ZZ 


907 


22 


908 


22 


909 


22 


910 


22 


911 


22 


912 


22 


913 


22 


91* 


22 


915 


22 


916 


22 


917 


22 


918 


22 


919 


22 


920 


22 


921 


22 


922 


22 


923 


ZZ 


9'* 


ZZ 


925 


ZZ 


926 


_22 


927 


22 


928 


22 


929 


ZZ 


930 


ZZ 


931 


ZZ 


932 


ZZ 


933 


ZZ 


93* 


ZZ 


935 


ZZ 


936 


ZZ 


937 


ZZ 


918 


ZZ 


919 


ZZ 


9*0 


ZZ 


9*1 


22 


9*2 


22 


9*3 


2? 


9«* 


22 


9*5 


2? 


9»6 


?? 


9*7 


22 


9*8 


22 


9*9 


22 


950 



157 



DATA >li-ll>l 

DATA -1/-1/-1 

DATA. 2 20/?4/23/l9/22/18 

DATA. 2 26/25/27, 29/2B/-1 

DATA, 2 3lj33»32/30i-l«-l 

DATA/2 35/37/34, 36, -1/-1 

DATA -l#-l»-l 

DATA. 2 14<t.H8»-l'-l/-l.-l 

DATA/2 l»0.4,2,3,.l 

DATA, 2 1*7/93, -1/-1»-1»-1 

DATA/2 9/6/10/7/8/5 

DATA/2 U/12/-1/-1/-1/-1 18 

DATA, 2 1*/-1/-1/-1/-1/-1 

DATA/2 16/ 15/ 17/-1/-1/-1 

DATA/2 49/51/50/-1/-1/-1 

DATA -1/-1/-1 

DATA/2 53/55/5*/56/-l/-l 

DATA/2 57/59/60/58/-1/-1 

DATA -1/-1/-1 

DATA -1/-1/»1 

DATA -1/-1/-1 

DATA -1/-1/-1 

DATA -1/-1/-1 

DATA "1/-1/-1 

DATA/2 19*/19b/ 198/197/ 195/-1 

UATA/2 199/-1/-1/-1/-1/-1 

DATA/2 20u,202»201/-l'"M/-l 

DATA -1/-1/-1 

DATA -1,-1, -1 

DATA -1,-1, "1 

DATA/2 203,-1,-1,-1,-1,-1 

DAT* -1/-1/-1 

DATA/2 205/20»'-l'-l'"l/"l 39 

DATA/2 206/207/208/209/. 1<-1 

DATA, 2 2ll.2lJ.210/212/-l"? 

DATA/2 216/215,217, 214/. 1/-1 

DATA/2 218, 219/220/221/. 1/-1 

DATA/2 222/.l/-l/.l>.l/.l 

DATA, 2 jg3/225/224/.l/-l/'l 

DATA/2 226/227/- 1/-1/-1/.1 

DATA/2 230/231/228, 229/. i/«l 

DATA, 2 232/233, 234/-1/-1.-1 

DATA/2 236/235/-1/-1/-1/.1 

DAT»/2 238/239/240/237/. 1/-1 

DATa/2 242/241/-1/-1/-1/.1 

DATA/2 243/244/- 1,-1,- 1,-1 

DATA,£ 247/246/245/- 1/-1/-1 

DATA/2 64/62,61/63/. 1»-1 

DATA/2 65/67, 66, 68/- p. l 

DATA, 2 69/-1/-1/-1/-1/*! 56 

DAT«/2 249/248/. 1/-1/-1/.1 

DATA/2 2S0/'l/-l/'l'-l'.l 

DATA/2 71/72/73/- I/- 1/-1 

DATA/2 74/ 76/75/' l/'l/'l 

DATA/2 79/ 78,77, 139, -1/-1 

DATA "l,.l,.l 

DATA/2 80/125/-1/-1/.1/.1 63 

DATA, 2 81,133."l,.l,-l/.l 

DATA/2 82/84, 151/-1/-1/.1 65 

DATA/2 87/89/68/85/86/' 1 66 

DATA/2 91/90/' 1/-1/-1/.1 

DATA/2 94/92/95/181/" l/.l 68 

OATA/2 97/98/99/- 1/-1/-1 69 

DATA/2 103/104/101/" 1/-1/-1 70 

DATA/2 106/105, .1/.1/-1/.1 

DATA/2 107,106/109'-1/"1»"1 

DATA, 2 110/ 113/ 111/112/. 1/-1 

DATA/2 116/11S/.1/-1/-1/.1 74 

D4TA/2 119/121/120/. 1#»1#»1 75 

DATA, 2 124,123,.i,.l,-l,.l 

DATa/2 126/128/127/. 1/-1/-1 

DATA -1/-1/.1 

DATA -1/-1/.1 

DATA -1/.1/-1 

DATA/2 130/132/131/" l/'l/'l 

DATa/2 134.137/136/135/138/-1 

DATa/2 140/141/ 143/142/. 1/-1 

DATA/2 146/ 145/.H'l,.l,.l 

OATA/2 148/150' 149/. 1/.J/-1 

DATA/2 152,129/122/-1/'1/-1 

DATA/2 163/ 156/ 155/ 154/. i/«i 

DATA/2 157/159, 160/158/. 1/-1 

DATA/2 163/162/161/164/. 1/«1 

DATa/2 165/166/. l/'l/'l/.l 

DATA/2 167/169/168/177/. 1,«1 

DATA -1/.1/-1 

DATA/2 170/172/173/171, .1/-1 

DATA, 2 I74,176«l75»«l,-i»-l 

DATA .1/-1/-1 

DATA/2 178/180/179/- 1»"1,M 

DATA/2 182/184/183/52/" l.-l 

DATA '1/-1/.1 

DAT*, 2 185/188/186/189/187/-1 

DATA/2 190/191/193, 192/. lz-1 

DATA -1/-1/.1 

DATA "l/.l/.l 

DATA .1.-1,-1 

DATA "1/-1, -1 

DATA .1,-1, .1 

DATA -l.-l/.l 

n«T, -l/.l/.l 

DATA "l/.l/.l 

DAT* .l/.l,.l 

DATA -l.-l.-l 

DATA >l,.l,.l 

DATA »l.-l,.l 



t 


22 


951 


8 


22 


952 


9 


22 


953 


10 


22 


954 


11 


22 


955 


12 


22 


956 


13 


22 


957 


14 


ii 


958 


15 


22 


959 


16 


22 


960 


17 


22 


961 




22 


962 


19 


22 


963 


20 


22 


964 


21 


22 


965 


22 


22 


966 


23 


22 


967 


24 


22 


96! 


25 


22 


969 


26 


22 


970 


27 


22 


971 


28 


22 


972 


29 


22 


973 


30 


22 


974 


31 


22 


975 


32 


22 


976 


33 


22 


977 


34 


22 


978 


35 


22 


979 


36 


22 


980 


37 


22 


981 


38 


22 


982 




22 


983 


40 


22 


984 


41 


22 


985 


42 


22 


986 


43 


22 


987 


44 


22 


988 


45 


22 


989 


46" 


22 


990 


47 


22 


991 


48 


22 


99? 


49 


22 


993 


50 


22 


994 


51 


22 


995 


52 


22 


996 


53 


22 


997 


54 


22 


998 


55 


22 


999 




22 


1000 


57 


22 


1001 


58 


22 


1002 


59 


22 


1003 


60 


22 


1004 


61 


22 


1005 


62 


22 


1006 




22 


1007 


64 


22 


iooe 




22 


1009 




22 


1010 


67 


22 


1011 




22 


1012 




22 


1013 




22 


1014 


71 


22 


1015 


72 


22 


1016 


73 


22 


1017 




22 


1018 




22 


101» 


76 


22 


1020 


77 


22 


102t 


78 


22 


102? 


79 


22 


1023 


80 


22 


1024 


81 


22 


1025 


82 


22 


1026 


83 


22 


1027 


84 


22 


1028 


85 


22 


10?9 


86 


22 


1030 


87 


22 


1031 


88 


22 


103? 


89 


22 


1033 


90 


22 


1034 


91 


22 


1035 


92 


22 


1036 


93 


22 


1037 


94 


22 


1038 


95 


22 


1039 


96 


22 


1040 


97 


22 


1041 


98 


22 


104? 


99 


22 


1043 


100 


22 


1044 


101 


22 


1045 


102 


22 


1046 


103 


22 


1047 


104 


22 


1048 


105 


22 


1049 


106 


22 


1050 


1 i7 


22 


1051 


108 


22 


1055 


109 


22 


1053 


110 


22 


1054 


1 11 


22 


1055 


112 


22 


1056 



158 



EMFLG 
KCl 



KCTK 
KCSF 



L\KPT 



BL*27 
DEfDSP 



DAT* 

DATA 

DATA, 2 

DATA 

DATA 

DATA 

DATA, 2 

DATA, 2 

DATA, 2 

DATA 

DATA, 2 

DATA 

BBJnD 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

b»u'*D 

RES 

DATA,1 

DATa,1 

DATa.i 

DATA, i 

DAT*,j 

DATa,1 

DATa.i 

DATa.i 

DATA.i 

DATa.j 

DATa,i 

SPACE 

PES 

DATA 

DAT* 

DATA 

D*TA 

D*T* 

D*T* 

DAT* 

DATA 

SPACE 

RES 

DATA,1 

DATA.I 

DATA,1 

DATA,1 

DATA,1 

DATA.I 

DATA.I 

OATa.1 

DATA.I 
^*TA,1 
D»T*,1 
D*T*»1 
DA1*.l 
D*T*,1 
D*T*,1 
D*T*,1 
DATA.I 
DATA.I 
DATa.i 
DATA.I 
DATA.I 
DATA.I 

DATA.I 
DATA,! 
DATA.I 
DATA.l 

DATA.I 
DATA.I 
DATA.l 

DATA.I 
DATA.l 

DATA,1 

DATA,1 
DATA.l 
DATA.l 

DATA.l 
DATA.l 
OATA,l 
DATA.l 
DATA.l 
DATA.l 
••• LNK 

DATA.l 

DATA,1 

DATA.l 

DATA.l 

DATA.l 

DATA.l 

DATA.l 

DATA.l 

DAT*.l 

D*T*.l 

BBJiiD 

SPACE 

DSECT 

RES 

DAT*. 2 

DATA, 2 



•l.-l,-l 
•1»«1«-1 

251,252,-1»-1.-1.-1 
»1«-1.«1 

•1,-1, -1 
•1,-1, -1 
25*.253,-i«-l,-l,-l 

39,*l,38»*o«-l««l 
*3«*2,**»*5,-l»»i 

*6,*8,*7,-i,-l«-i 
•1,-1, -1 

1 

•1.0.0,0,0 
80,100,110,120 
13o,l*U'l50'16i 
170,180,190,203 
213»22'„»23o»2*0»90 

O.O'O.O.O'O.O'O.O'O 

0,0,0.0.0' O'O 

U'0'0'0'0'0'0,0,0'0 

0<5» o.o.o. o.o 



2, 2, 2, 2. 2, 2. 2.0.5. 3. 2, 2 
2.2.2.2.3,2,2.2.2.2,3,2 

2,2.2.2.2.2.2,2.3.2.2.2 
3.3.2.2.2.2.2.2.2.2.2,2 
2,2,2,2,2,2.2.2.2.2,2.2 
2.2.2.2.3.3.2.2.2.2.2.2 
2.2.3.2.2.0'0'0,2.2.2.2 
2, 2. 2, 2, 2, 2, 3,2,3,2, 2, 2 
2»2.2.2.0'O'2'2'2'3'0'0 
2»2<2.2.2'2'2<2.2'2,2'2 



113 

11* 
115 
116 

117 
118 
119 
120 
121 
122 
123 
12* 



12* C9NTR8LLERS 



CBNTR8LLERS 6< 
CONTROLLER 58 
NBNE 
C8NTR«LLE" 122 



2»2'2.0 
2 



X'FBFFFF7F' CBNTR8LLERS 6, 25 



X'FFFFFFBFi 



X'FFFFFFFF' 



X'FFFFFFBF" 


2 

0«2«0»u»0»6»3»0» J, 3,0.0 

0'3'0« 0. 1. *. O'O. 0' l.O'O 
1,*. 0.0. 0,0, 0«0< 2,8, 0,0 
1,7»*.0»1.»<0«0.0'2,0«0 
O.*.O.0.0«*< O'O. 3'5.0»0 
0,7»0» 0.1»*'7.0.0'2'0'0 
0'2» O'O. 2.13,0,o,l,5,0«n 
0,2,0,0,1,6,3,0.0.7.0.0 
0,1, 0,0. 0,12. 0.0.0' 5. O'O 
0,* , 0,0,1 '7,0.0 .1,*, 0,0 
*, 13. 0»0, 1'6, O'O. 0,*, 2, r, 
1.5.0«0.0.2'0»0.2'6<0»0 
2'6»1*»0'1'3,6«3,0»*'0»C 
l.*«0»0»l«*'0'0«l'3,0»0 
0,2»0.0»0'2'0'C«1«3,0»0 
0»2'0.0»2.6.0.0.0'2»0»0 
0»2«0.0.0.2'0'0.0'2»0»0 
0' 2' O'O. 2. 6. 0,0, 1,6, 0,0 
1«5»0»C»1»*>0'0»0'2»0<0 
0'1'0'0,2'5.0,0,3.6.0'C 
2»6. 3. j. 0.3.0. J. 2. 6.3.0 
2,6,0,0.1»*'7»0»l»l*.5,r. 
2»6.0.0.1'6»0»0,1»6#0,0 
1.6.0.0.0,9. O'O. 1.3.0,0 
1» 3. 0,0, 2,6, 0.0. 1.6, 3,0 
1>5,0,0'1'*'0»0'0«0,0<3 

o. 0,0. o.o. o.o. o.i.*, 0,0 

1»»» 0.0,1,*, 0,0,1,*, 0.0 

2, 6. 0.0, 5, 2, O'O, 1,3, 0,0 

1»*» 0.0. 0.3. 0.0. 2» 6, 0,0 
1,*,7,0'1»*'0,0,1,»»7,0 
1,*,0,0'1'*,3'0'1,*'0'0 
2. 5.0.0'!'*, 0,0, 1,7, O'O 

0'2, 0,0' O'O, O'O. O'O' 0/0 
1,5,0,0'1,6,0,0,1,*»0'0 
*, 8, 12, O'O' O'O' 0,0' 0,0,0 

0,5'0'0'1'6,0'0,2'6<0>0 

2.6,0,0,0'2»0»0»1«»«0'0 

l»*'0,0,l»*,0'0-.0,2,0,0 

1,*.0.0»0,2,0'0«1»»'0,0 
. 3, 10, 0,0,0,1, 0,3, 0'2»0»n 
PT LINK PHASE TABLE ••• 

AHO A2»l bl.2 B2»3 Cl«* 01-6 
1,0»*,2,2«0»1»»»0,0,2»0»0»3'0«2'3,*»*' 

3<3,*,*,*'0'2'1<2'0<3'1<2,0.3.1.2,0<3 

0'C'2'0.2.0.*.2.2.*.2.0.0'0»2'1<3»0'2.0 

2,3»0'0,0»2,2'0.6'0.».2.2.0'2'2»0'0'*'3 
2,2,0,0'l>2,0'2<?,l,2,2,n>*,0,'~'«<2'2<2' 
0'2,0,2,0»0»2'1'0,2»0,3»2»3»0»2'0'0»3, 7» 

2,0,*,1,2'0'2»0,2.0.0.0.2.2.0'0.*,2,0.0 

0'2'1»0»2,2'1'*.0'2»0'3.0'0.2.*.3.0.3.2 

2'3»0'0»2,2'*'2»0'3»0'0'2'2.2'0»2'2.0.2 

2«2»0»*»0'1»2'2.0'0'0»*.2.0.2.0.0'0'2.2 

* 

2 





037. 007.007. 007, 0C9. 009. Oil '01 3. 013. 013 

013.015.015.015,017.017.019,019,019,021 



.A.S.2 

p. 2.1 

41' 2'0 
»?.0.0 
3»20«C 
2,2,,-,,0 
7,*,0< 

?»*.*. 
?.2.0. 

3 



.1.2 

3>2»C 

2.1.0 

O'O'O 

.2,2 

,2,0 

?.0<2 

O'O'l 

1.0.0 



1 - 01 
1 • 02 



22 1057 
22 1058 
22 1059 
22 1060 
22 1061 
22 1062 
22 1063 
22 106* 
22 1065 
22 1066 
22 1067 
22 1068 
22 1069 
22 1070 
22 1071 
22 1072 
22 1073 
22 107* 
22 1075 
22 1076 
22 1077 
22 1078 
22 10'9 
22 1080 
22 1081 
22 1082 
22 1083 
22 108* 
22 1085 
22 1086 
22 1087 
22 1088 
22 1089 
22 1090 
22 1091 
22 1092 
22 1093 
22 109* 
22 1095 
22 1096 
22 1097 
22 10*8 
22 1399 
22 1130 
22 1131 
22 1102 
22 1133 
22 113* 
22 1135 
22 1136 
22 1137 
22 113S 
22 1139 
22 1113 
22 1111 
22 1112 
22 1113 
22 111* 
22 1115 
22 1116 
22 1117 
22 1118 
22 1119 
22 1123 
22 1121 
22 1122 
22 1123 
22 112* 
22 1125 
22 1126 
22 1127 
22 1128 
22 1129 
22 1130 
22 1131 
22 1132 
22 1133 
22 113* 
22 1135 
22 1136 
22 1137 
22 1138 
22 1139 
22 11*C 
22 11*1 
22 11*2 
22 11*3 
22 11** 
22 11*5 
22 11«6 
22 11*7 
22 11*8 
22 11*9 
IB 115T 
22 1151 
22 1152 
?S 1153 
22 115* 
22 1155 
22 1156 
22 1157 
2Z 1158 
22 1159 
22 1160 
) 22 1161 
) 22 1162 



159 





DATA.a 


02l«023 


-025 


-025 


,027 


027 


,029 


,629 


■ 029 


031 


021 


' 030 


22 


163 




DATA, 2 


031.033 


.033 


.033 


.016 


016 


.035 


,035 


■ 010 


013 


031 


■ 0*3 


22 


16* 




DATA, 2 


037.037 


.008 


■ 012 


.012 


012 


.01* 


-01* 


,01* 


022 


3*1 


' 053 


22 


165 




DATA, 2 


020»020 


.018 


• 018 


018 


018 


.030 


■ 030 


,032 


032 


051 


■ 060 


IS 


166 




DAT*, 2 


03J.032 


-32* 


■ 02* 


.02* 


026 


. 036 


,?57 


001 


028 


361 


' 073 


ZZ 


167 




DATA. 2 


0C3»005 


.038 


.039 


.0*1 


0*3 


.0*5 


,0*7 


,0*9 


051 


071 


• 030 


22 


168 




DATA, 2 


053.055 


.057 


.059 


179 


179 


.179 


-006 


,006 


006 


081 


• 090 


22 


169 




data, 2 


0*2. 0*2 


.0*2 


-151 


181 


161 


,052 


,0** 


,0** 


0** 


091 


■ 100 


22 


170 




DATA, 2 


0*8»05C 


.050 


■ 0*6 


.060 


058 


,1«2 


182 


,182 


183 


101 


■ 110 


22 


171 




DATA, 2 


183,35* 


05* 


.05* 


.056 


0=6 


056 


,185 


180 


180 


111 


• 120 


22 


172 




DATA, 2 


180. 137 


,189 


> 189 


189 


191 


191 


191 


193 


193 


121 


• 130 


22 


173 




DATA, 2 


193,195 


.195 


■ 195 


.197 


197 


,197 


,199 


,199 


201 


131 


• 1*0 


22 


l/» 




DATA, 2 


231,203 


,205 


.205 


205 


207 


,207 


,207 


,207 


2C.9 


1»1 


' 150 


22 


175 




DATA, 2 


211.213' 


213 


18*, 


18*. 


133 


188 


136 


190' 


190 


151 ■ 


160 


22 1 


176 




DATA, 2 


19C191 


19* 


l»h 


198, 


192 


192, 


196 


196, 


196 


161 ■ 


173 


22 1 


177 




DATA, 2 


202.202 


212 


21* 


215. 


200 


217, 


217 


217« 


219 


171 ■ 


180 


22 1 


178 




DATA, 2 


219.219 


2G*i 


20* 


203. 


208 


208, 


0*1' 


061' 


061 


181 ■ 


193 


22 1 


179 




DATA, 2 


063. 0°5 


065' 


065 


210' 


210 


210 


067 


067. 


067 


191 ■ 


200 


22 1 


180 




DATA, 2 


Q69.069 


069 


20* 


206, 


206 


216 


071 


221' 


221 


201 • 


213 


22 1 


161 




DATA, 2 


218.218 


223 


073 


073, 


073 


220 


220 


075, 


075 


211 ■ 


220 


22 1 


IB? 




DATA, 2 


075.077 


077 


077 


062, 


062 


062 


066 


066, 


066 


221 < 


230 


22 1 


133 




DATA, 2 


079.06» 


06* 


06* 


068, 


068 


068 


072 


070' 


070 


231 ' 


2*0 


22 1 


IB* 




DATA, 2 


07o»o*l 


061 


0»1 


222' 


22* 


22* 


22* 


236< 


073 


2*1 ■ 


250 


22 1 


135 




DATA, 2 


07»»07« 


083 


033 


083' 


076 


76 


080 


385' 


087 


251 ■ 


263 


22 1 


136 




DATA, 2 


087< 087 


089 


0S9 


089< 


089 


091 


091 


391- 


093 


261 • 


279 


22 1 


137 




DATA, 2 


093.093 


095 


095 


097< 


099 


099 


99 


101' 


103 


271 ■ 


280 


22 1 


138 




DATA, 2 


ICS'103 


105 


10b 


105, 


107 


107 


032 


08*' 


1">9 


281 - 


29 5 


22 1 


139 




DATA, 2 


1C9M09 


086 


086 


036' 


HI 


111 


111 


092' 


092 


291 > 


303 


22 1 


190 




DATA, 2 


090'090 


030 


090 


096' 


096 


;96 


257 


100' 


CSS 


3ol • 


310 


22 1 


191 




DATA, 2 


106«1J»< 


106 


098 


113' 


257 


112 


257 


115' 


115 


311 ■ 


320 


22 1 


192 




DATA, 2 


115, 1„2 


102 


102 


257, 


110 


257 


117 


117, 


117 


321 ■ 


330 


22 1 


193 




DATA, 2 


117,119 


119 


119 


121' 


123 


11* 


125 


257' 


127 


331 


• 3*3 


22 


1<*4 




DATA, 2 


257,116 


116 


116 


116, 


118 


118 


118 


129 


129 


3*1 


• 350 


22 


195 




DATA, 2 


129,129 


2*0 


120 


120' 


2*2 


?«* 


257 


2*6 


257 


35 1 


' 360 


22 


196 




DATA, 2 


2*8, 2*8 


2*8 


250 


25C 


250 


257 


126 


257 


252 


361 


• 370 


22 


197 




DATA. 2 


252,252 


252 


12» 


12*' 


12* 


?57 


130 


2 = 7 


131 


37) 


• 38 


22 


196 




DATA, 2 


Ul'131 


133 


133 


133' 


135 


137 


128 


128 


128 


38) 


■ 390 


22 


199 




DATA, 2 


139,139 


139 


1*1 


1*1' 


1*1 


1*3 


1*3 


1*3 


1*5 


391 


• »00 


22 


200 




0ATA,2 


1*5,1*5 


1*7 


1*9 


1*9' 


1*9 


151 


151 


1=1 


1=3 


»01 


• »10 


22 


201 




DATA, 2 


2b*,l55 


136 


136 


136, 


157 


159 


159 


1*6 


1*6 


*11 


■ »2o 


22 


202 




DATA, 2 


1*6.138 


138 


138 


13*, 


13* 


13* 


15* 


15* 


15* 


*2l 


■ *3o 


22 


233 




DATA, 2 


1*0'1*0 


1*0 


156 


1*2' 


1** 


1*8 


257 


257 


257 


*3l 


■ *»0 


22 


20* 




DATA. 2 


150'1=0 


150 


152 


152 


158 


158 


158 


161 


161 


4*1 


' *5o 


22 


235 




DATA, 2 


1&1M63 


163 


163 


165' 


167 


167 


167 


169, 


169 


*5l 


> *6q 


22 


206 




DATA, 2 


169.171 


171 


l'l 


173' 


173 


1*3 


1'5 


177 


177 


*61 


• »7o 


22 


207 




DATA, 2 


177,16* 


16* 


16* 


168, 


168 


168 


l'O 


255 


17S 


»7l 


■ *8o 


22 


208 




DATA, 2 


178,166 


166 


17* 


17*, 


162 


162 


226 


226 


176 


*3l 


■ *9 


22 


209 




DATA, 2 


176,228 


228 


172 


1 7 2' 


230 


230 


232 


232 


23* 


*9l 


• 500 


22 


210 




DATA, 2 


23*, 225 


227 


OJ* 


002, 


259 


229 


231 


233 


2*3 


50"1 


■ 510 


22 


211 




DATA, 2 


239,2*7 


2*1 


257 


2*9, 


251 


257 








511 


■ =17 


22 


212 




B9UND 


* 






















22 


213 


LAKDSP 


RES 

























22 


21* 




DATA, 2 


008,012 


01* 


022 


020' 


257 


018 


030 


257 


032 


001 


■ 010 


22 


215 




DATA, 2 


02*. 026 


036 


257 


001' 


028 


003 


005 


257 


0'j7 


011 


' 020 


ii 


216 




DATA, 2 


009,011 


257 


013 


015' 


017 


019 


021 


023 


025 


021 


• 030 


22 


217 




DATA, 2 


027,029 


031 


033 


016' 


035 


010 


037 


178 


166 


031 


■ 0*0 


22 


218 




DATA, 2 


l7*M62 


226 


176 


228, 


172 


230 


232 


23* 


033 


0*1 


• 050 


22 


219 




DATA, 2 


U39<0*1 


0*3 


0*6 


0*7 


0*9 


051 


0=3 


0=5 


0=7 


0?1 


" 060 


22 


220 




DATA, 2 


0=9»?j8 


061 


063 


065 


210 


067 


069 


,206 


216 


061 


■ 071 


22 


221 




DATA, 2 


071.073 


220 


075 


077 


062 


066 


079 


,06* 


06« 


071 


> 080 


22 


L222 




DATA, 2 


072*070 


081 


222 


22* 


236 


078 


7* 


, 0»3 


076 


081 


■ 090 


22 


223 




DATA, 2 


CBO'085 


257 


087 


089 


257 


091 


09 3 


, C 95 


097 


0^1 


' 100 


22 


[22* 




DATA, 2 


099, 10 1 


103 


105 


107 


082 


OP* 


109 


,086 


111 


101 


■ 110 


22 


225 




DATA, 2 


092,0^0 


257 


096 


257, 


100 


088 


108 


10* 


lo6 


•111 


■ 120 


22 


226 




DATA, 2 


099M13 


112 


115 


102 


110 


117 


257 


-119 


121 


121 


■ 130 


22 


1227 




DATA, 2 


123'11» 


125 


127 


11* 


257 


113 


129 


-257 


2*0 


131 


• 1*3 


22 


1226 




DATA, 2 


257,120 


2*2 


2** 


2*6 


2»S 


250 


126 


,252 


257 


1*1 


■ 15 3 


ii 


1229 




DATA, 2 


12*' 130 


131 


133 


135 


137 


128 


139 


'1*1 


1*3 


151 


' 160 


22 


123 




DATA, 2 


1*5, ;*7 


1*9 


1 = 1 


153 


25* 


,155 


136 


,157 


159 


161 


' 170 


22 


1231 




DATA, 2 


257,1*6 


138 


13* 


15* 


257 


1*0 


]56 


-1*2 


1** 


17) 


• 18 3 


22 


123? 




DATA, 2 


1*8,257 


150 


152 


158 


161 


1*3 


165 


,]67 


169 


131 


• 190 


22 


1233 




DATA, 2 


171,173 


175 


177 


179 


257 


,006 


0*2 


-181 


52 


191 


' 200 


22 


23* 




CATa,2 


0**«0*8 


050 


0*6 


06 


058 


182 


,183 


, 05* 


056 


231 


■ 210 


22 


1235 




DATA, 2 


18S<180 


187 


139 


191 


193 


,195 


,197 


,257 


199 


211 


• 220 


22 


L236 




DATA, 2 


201,257 


203 


205 


257 


207 


,209 


,211 


,257 


213 


221 


■ 233 


22 


L237 




DATA. 2 


10*. 257 


257 


IBS 


186 


190 


19* 


198 


'192 


196 


231 


■ 2*0 


22 


233 




DATA, 2 


2:2,212 


21* 


215 


200 


217 


219 


,20* 


,221 


2lS 


2*1 


> 250 


22 


239 




DATA, 2 


223, 16* 


168 


170 


255 


225 


,227 


0'* 


,002 


259 


251 


■ 260 


22 


2*0 




DATA, 2 


229,231 


233 


2*3 


239 


2*7 


,2*1 


,257 


,2*9 


251 


261 


' 273 


22 


2*1 




DATA,? 


527, 5£7 


















271 


• 272 


22 


2»? 




BB'J «U 


* 






















22 


2*3 




SPACE 


2 






















22 


L2** 


BLM5 


DSELT 

























22 


2*5 


OSET 


DATA 


X'Fo' 








1AC 


Hl".E 


IS 


EBCDIC 






22 


12*6 


mBJFL 


DAT* 


HSUFLMi 






















22 


2*7 


I GKI 


DATA 


*'7FFFF 


-FF' 




















22 


2*8 


MNUMF 


DATA 


M'.OriSF 






















22 


2*9 


mB"CH 


DATA 


32 






















22 


1250 


mC"22 


DATA 


2NC-RD 






















22 


251 


MC»Ui 


DATA 


K(CnRD2 






















22 


252 


\OD 


DATA 


NCwRD 






















22 


253 


\hA\P 


DATA 


NHANPAT 






















22 


125* 


vU"CTL 


DATA 


NCS 






















22 


1255 


MU^L^k 


DATA 


NL 






















22 


L256 


NU M SCT 


DATA 


NST 






















22 


L257 


MljnvED 


DATA 


NO 






















22 


L258 


mPATB 


DATA 


\PAT8YT 






















22 


259 


NPB* 


DATA 


NPATBYT 


It 




















22 


260 


MRESP 


DATA 


fjKESPAT 






















22 


1261 


n.SECT-1 


DATA 


NST-1 






















22 


L262 


TBSU 


DATA 


TBSIZE15 






















22 


1263 


TBTTE 


DATA 


TBYTE15 






















22 


126* 


cs 


DATA 


C» 






















22 


1265 


OS 


DATA 


D* 






















22 


1266 


FS 


DATA 


F» 






















22 


1267 


MS 


DATA 


N» 






















22 


1268 



160 



OS 


DATA 


Qt 




RS 


DATA 


R» 




SS 


DATA 


S« 




SCS 


DATA 


sc* 






SPACE 


s 




»D*TA» 


RES 







bLKIt 


DSECT 







DBP 


RES 


l 




KNEW 


RES 


l 




TT 


RES 


i 






SPACE 


2 




BL*17 


DSECT 







ADVINh 


RES 


2«nCwrD 


BIT INTERLEAVED 


CIC.BYP 


RES 


2*NCWRD 


BIT INTERLEAVED 


CP«Bo 


RES 


2«NC«»D 


BIT INTERLEAVED 


IA'JVP 


RES 


2«NCw»D 


BIT INTERLEAVED 


CNTDR 


RES 


NCR 




CSNTM*- 


RES 


1' 




I 


RES 


1. 




INTNU^" 


RES 


NCR/4' 




IMNU""L 


RES 


NCR/4 




INTOUT 


RES 


(NCR/4)*1 




K 


RES 


1 




STBTlr- 


RES 


(NCH/jm 




Tl«EBuT 


RES 


INCR/«)*1 




tvBK 


RES 


NLR/4 






SPAlE 


2 




BLK1B 


DSECT 







CIt'F 


RES 


2«NC«IR0 


BIT INTERLEAVED 


C1CTBCF 


RES 


2«NCWRD 


BIT INTERLEAVED 


STBYO 


RES 


2«NCWRD 


BIT IKtcoi r».,rr\ 


Ce'JTAB 


RES 


NCR/2 




Cu*»F f 


RES 


NCR/4 




CYCLC 


RES 


NCR/* 




EM9T[\T 


RES 


16»(NCR/4) 




tMRrgrr 


RES 


NCR/4 




jABBCAbC 


RES 


4"(NCR/4) 




uA*TE".P 


RES 


NCR/4 




^BirE^p 


RES 


NCR/4 




5L*BC 


RES 


4« (NCR/4 ) 




jMIMAbCi 


RES 


4»( NCR/4 1 




juABC 


RES 


4«(NCR/4 ) 




INTDliR 


RES 


16. (NCR/4) 




S>U"l»BCT 


RES 


4«(NCfi/4) 




TKl 


RES 


NCR/4 




*RK8FF 


RES 


NCR/4 






SPACE 


2 




BLM9 


DSECT 







ccs 


RES 


NDP/4 




Df Ml 


RES 


NLR/4 




JBF 


RES 


(NDR/32]*1 




-11 


RES 


NCR/4 




RA*3CC 


RES 


NDR/2 




SA.vSP 


RES 


NDP/2 




■Ac 


RES 


1 




TS1*«T 


RES 


NO 






SPACE 


2 




6LK2L' 


DSECT 







AVSP 


RES 


1 




UEtOAY 


RES 


NLP/2 




*suay 


RES 


NLR/2 




BOAT 


RES 


NLR/2 




3PC. 


RES 


1 




JPT 


RES 


1 




SO*'" 


RES 


NLR/2 




Vl)AT 


RES 


NLR/2 






SPACE 


2 




BL^ei 


DSECT 







JPATNLM 


RES 


NSR/4 




F^ISECF 


RES 


1 




F-lSTSF 


RES 


1 




HS"UF 


RES 


MBUFlMC 




-1CDF 


RES 


1 




TE*f" 


RES 


NLR/4 






sface 


2 




BLK22 


-DSECT 







cubm 


RES 


512 




CRTBF? 


RES 


512 




CRfDCI 


RES 


1 




CKTSCe 


RES 


1 




CSTFL1 


RES 


1 




CRTFL2 


RES 


1 




FLERFL 


RES 


1 






SPACE 


? 




iiL*23 


DSECT 


j 




EXriiF 


RES 


|NuK/32)*l 




INHIBITS 


RES 


1 




.1 


RES 
RES 


1 
1 




9ALC 


*E :j 


NLR/2 




i<A-*L'.« L 


''LS 


1 




■iA-'LN.J 


RES 


1 




3 ALC 


RE'S 


NLP/2 




5TP1E-P 


RLS 


1 




,»LC 


RES 


NLR/2 




Tb'JFFli 


RES 


TBSIZE1S 






SP»l5 


2 




n.<S-> 


CELLT 


j 




A—lUl 


RES 


'.LR/2 




CfOIS 


-E s 


1 




i'C k 


"l i 


1 




JSr A 


RES 


1 




F-IS^C 


>>£3 


i 




FSTF- j 


■". => 


T 





22 1269 

22 1270 

22 1271 

22 1272 

22 1273 

22 1274 

22 1275 

22 1276 

22 1277 

22 1278 

22 1279 

22 12«0 

22 1281 

22 1282 

22 1283 

22 1284 

22 1285 

22 1286 

22 1287 

22 1288 

22 1289 

22 1230 

22 1291 

22 1292 

SS 1293 

22 12"4 

22 1295 

22 1296 

22 1297 

22 1298 

22 1299 

22 1330 

22 1301 

22 130? 

22 1303 

22 1304 

22 1305 

22 1306 

22 1307 

22 1308 

22 1309 

22 1310 

22 1311 

22 131? 

22 1313 

22 1314 

SS 1315 

22 1316 

22 1317 

22 1316 

22 1319 

22 1320 

22 1321 

22 132? 

22 1323 

22 1324 

22 1325 

22 1326 

22 1327 

SS 1328 

22 1329 

22 1330 

22 1331 

22 1332 

22 1333 

22 1334 

22 1335 

22 1336 

22 1337 

22 133? 

22 1339 

22 1340 

22 1341 

22 1342 

22 1343 

22 1344 

22 1345 

22 1346 

22 1347 

22 1348 

22 1349 

22 1350 

22 1351 

SS 1352 

22 1353 

22 1354 

22 1355 

22 1356 

22 1357 

22 1358 

22 1359 

22 1360 

22 1361 

22 1362 

iS 1363 

22 1364 

IS 1365 

22 1366 

22 1367 

SS 136« 

22 1369 

22 137- 

SS '.371 

22 137? 



161 



MfLIDF 


RES 


1 












hSLIUTo 


L RES 


96 












■.HOLl;» 


r RES 


1 












PARCBC 


RES 


1 












PT\ 


RES 


7-5 








Rattc- 


<■ 3.f>?r 


S""Li 


RLS 


1 












SuXJlS 


RES 


1 












T--<Ea- 


RES 


1 












vhIST 


RES 
SR»CE 


\L'/2 
2 












OL*«?S 


DSE^T 


I 












A-LC 


RES 


NLR/J 












C"-»L' 


RES 


I^"R/j?i« 












ct-'»t 


RES 


s- = /2 












Jt'T»r 


RES 


N.-R/2 












3IS 


RES 


cr-*/j2). 


1 










^-i»LF 


RES 


C-rR/i2)«l 










J- 3JE 


RES 


Ni^/A 












FAiLT.b 


RES 


A»^ \. -3F 












-. = ► 


RES 


1 












'B)E* 


RLS 


\S5/a 












\*l 


RES 


SSP/A 












v6>-*lL 


RES 


1 












Sd*u 


RES 


NcR/A 












SECCFC 


RES 


NS* 












SECOFC 


RES 


NST 












-6L 


RES 


nlr/2 












*»|SF" 


RES 


1 












„S«F 


RFS 


1 












-,SF 


RES 
SPACE 


1 
2 












BL*26 


DSECT 


£, 












JATE 


RES 


3 












PRivjATE RES 


3 












L PBUF 


RES 


ls-6 












SAVKJ 


RES 


1 












SAVRB 


E'JU 
BBunO 


SAv«o 












BLM9P 


OSECT 















CC2P 


RES 


NJR/A 












RA«BCP 


RES 


NJR/2 












RA«SPP 


RES 

SPACE 

BBUnD 


2 

A 












S8tBNT 


DSECT 















aRKBFs 


RES 


A«(NCR/A 1 












18 


RES 


♦•(NCR/»I 












IE* 


RES 


NCR/A 












ENTCrc 


RES 


NCR/A 












SPLIT 


RES 


♦•(NCR/A ] 












DAfL* 


PFS 


Q. 


r_Np 


Br CLEARED 


AREA 


CO«PN 


DATA.l 


3.2.2.1.1 


2 


1 





1»1«1,2 C 


^ 1-1? 




DATA, J 


3.3,3.3.3 


3 


3 


3 


3,2.3.5 


CNT 13 . 




DATA/1 


A.S.5.0.D 





6 


6 


6.0.0,0 CNT 25-36 




DATA.l 


0. 0<6.6. *- 


6 





9 


O'CO.O C^T 37-A8 




DATA/1 


0'6.6,6,6 


5 


5 


5 


0'6.A.A C\T A9-63 




DATa»1 


♦.5.5.5.5 


5 


5 


5 


5< 5, 5. A C 


IT 6W? 




DATA.l 


A. A. A. A, A 











A, A, A, A CNT 73-8A 




DATA.l 


A. A. A. A. A 


5 


5 


0< 


5< 5,0, A C 


T 85-96 




DATA/1 


A.A.A.A.O' 





2 


2, 


2<2<0,0 C 


■T 97-138 




DATa/1 


O'O.O.O.C' 











O'O.O.l CNT 1C9-12D 




•DATA.l 


2.2.2.0 CNT 


121. 


12* 






SPACE 


2 












U2L1NK 


DSECT 















LINKL 


RES 

















DATA.2 


1070. 10SA 








LIM.S 


1.2 




DATA. 2 


A32.AAC 








LINKS 


3. A 




DATA. 2 


608,610 








LINKS 


5.6 




DATA,? 


1270.1190 








LINKS 


7.8 




DATA. 2 


375. A55 








LINKS 


9,10 




DATA. 2 


572.592 








LINKS 


11.12 




DATA. 2 


A05.AA0 








LINKS 


13. 1* 




DATA. 2 


1CA8.A90 








LIN«S 


15.16 




DATA.2 


1050.782 








LINkS 


17,18 




DATA. 2 


775.952 








LINKS 


19.20 




DATA.2 


9A5.A32 








LINKS 


21.22 




DATA.2 


• 3C1112 








LINKS 


23. 2A 




0ATA.2 


1118. A53 








LINKS 


25.26 




D*TA. 2 


363.790 








LINKS 


27,28 




DATA. 2 


865.1327 
1168, a78 








LINkS 


29,30 




DATa.e 








LINKS 


31,32 




DATA. 2 


62A.630 








LINKS 


33, 3A 




DATA. 2 


550,320 








LINKS 


35,36 




DATA. 2 


♦00,638 








LINKS 


37,38 




DATA.2 


265.287 








LINKS 


39. AO 




DATA.2 


628. A60 








LINkS 


A1.A2 




DATA.2 


A32.175 








LINKS 


A3.AA 




DATA.2 


260.516 








LINKS 


A5.A6 




DATA.2 


515.958 








LINKS 


A7.A8 




DATA.2 


925. ASO 








LINKS 


A9.50 




DATA.2 


086.568 








LINKS 


51.52 




DATA.2 


565. 29A 








LINKS 


53. 5A 




DATA.2 


295.322 








LINKS 


55.56 




DATA.2 


313.698 








LINKS 


57,58 




0ATA.2 


690.A85 








LINKS 


59,60 




DATA.2 


♦♦1.582 








LINKS 


61,62 




DATA. 2 


288.700 








LINKS 


63, 6A 




DATA.2 


♦97.^25 








LINKS 


65.66 




DATA. 2 


5C6M71 








LINKS 


67,68 




DATA. 2 


♦ 55,5.18 








LINKS 


69.70 




DATA. 2 


5^?.^28 








LINKS 


71.72 




DATA.2 


320.^05 








LINKS 


73. 7A 




DATA. 2 


A7S.A10 








LINKS 


75.76 




DATA.2 


A88.A52 








LINKS 


77,7? 




DATA, 2 


♦68. ♦IS 








LINKS 


79,80 




DATA.2 


♦ 78.M2 








LINKS 


81,82 




DATA.2 


♦ 62.M^ 








UNKl 


83.8* 



22 


373 


22 


37a 


22 


375 


is 


37* 


SI 


377 


si 


J71 


it 


i;« 


ss 


JA- 


22 


!»• 


SS 


>" 


22 


i«l 


22 


J * A 


?? 


J-« 


?£ 


)■• 


?? 


J«7 



if : 



22 
?? 
Si 
Si 
22 
22 
22 
SS 

SS 1* 
S2 1*29 
22 1*10 
22 1A31 
22 1A3? 
SS 1*33 
22 1A3A 
22 1A35 
22 1A36 
22 1*37 
22 1*3* 
22 1*39 
22 1**0 
22 iaai 
22 1AA2 
22 1AA3 
22 1AAA 
22 1AA5 
22 1»A6 
22 1AA7 
22 1»A8 
22 1»A9 
22 1»5 
22 1A51 
22 1*52 
22 1*53 
22 1A5A 
22 1A5S 
22 IA56 
22 1*57 
22 l«b« 
22 1*59 

sb i*»s 

SS 1A61 
22 1A62 
22 1*63 
22 1A6A 
22 1A65 
22 1A66 
22 1*67 
22 1A68 
22 1A69 
22 1A70 
22 1*71 
22 1*72 
22 1*73 
22 1*7A 
22 1*75 
22 1*76 
22 1*77 
22 1A78 
22 1A79 



162 



DATA. 2 


058,0*9 


LINKS 85,86 




DATA. 2 


*95«0 U B 


LINkS 87.68 




DATA. 2 


172.1883 


LINKS 89.90 




DATA.? 


1683, .99 


LINKS 91,92 




DAT*. 2 


088,020 


LINKS 93.90 




DATa»2 


♦2*. 512 


1 'NkS 95.96 




UATA.J. 


510.63* 


LINKS 97.98 




data. a 


628.281 


LINKS 99.100 




DATA, 2 


28?. 552 


LINKS 101.102 




DATA, 2 


534.5*7 


LINKS 103.100 




D*Ta. 2 


5o?,?65 


LINKS 105.106 




DATA. 2 


268.071 


LINKS 107.108 




DATA. 2 


o7-»oo2 


LINKS 109.113 




DAT*. 2 


oco.025 


links iii'ii2 




DATA, 2 


026.025 


LINKS 113.110 




CAT,. Z 


37l»575 


LINKS 115.116 




DATA, 2 


535. »1* 


LINkS 117.11) 




DATA. 2 


325.520 


LINKS ll9. 


1'0 


DATA, 2 


»00»325 


LINKS 121. 


122 


DATA. 2 


68;. 686 


LINkS 123.120 




DATA. 2 


557.530 


LINKS 125.126 




CATa. 2 


06?. 050 


LINkS 127.121 




DATA. 2 


552.558 


LINkS 129'lJC 




DATA, 2 


735. 70C 


LINkS 131.13? 




DATA, 2 


01?»»5C 


LINkS 133.130 




DATA, 2 


028.010 


LINkS 135.136 




0ATa,2 


512. 6»C 


LINkS 137.138 




DATA, 2 


28?. 5.8 


LInkS 139.1o; 




CAT»,2 


»»;.39C 


LINkS lol,lo2 


„ 


DAT», 2 


• 18. »K 


LINkS 103.1-0 




DATA, 2 


020,03b 


LINkS 105,1.4 




DATA, 2 


025. 0U 


LINkS lo7.log 




DATA. 2 


33'.. o*2 


LINkS 109,153 




DATA, 2 


673.6.8 


LlVS 151,15? 




DATA, 2 


o:?.oj2 


lInkS 153,150 




DATA. 2 


»C3»»i5 


LI-vkS 155,156 




DATA. 2 


360. D 


LINKS 157 


1*8 


DATA. 2 


?35.oac 


LINkS 159.160 




DATA. 2 


555.510 


LINkS 161.16? 




DATA. 2 


5O-.052 


LINkS 163.100 




DATA. 2 


O72.O60 


LINkS 165.166 




DATA. 2 


05:. 052 


LINkS 167.16" 




DATA. 2 


253. 33C 


LINkS 169.17; 




0ATA.2 


225. ?oC 


LlN.S 171.17? 




DATA, 2 


365.336 


LINkS 173,170 




DATA, 2 


362,372 


Li "»S 175- 17a 




DATA, 2 


1230. 117? 


LINkS 177.17S 




DATA, 2 


60S. 662 


LINkS 179.16; 




DATA, 2 


500.522 


LIN.S 161. IS? 




DATA, 2 


005.362 


LlN.S 193.1-. 




DATA, 2 


092.096 


LINkS 135. 1c6 




DAT A, 2 


37;, 010 


LINkS 187. lo« 




DATA, 2 


268,216 


LlN.S 1S9.19; 




DATA, 2 


368,0.5 


LINkS 131.132 




DATA 


o.o.o.e.o.o.c 


0.0'C.O.O.C. O.O'CS.O 




DAT* 


0.5.0. CO. 0.0 


0.0. o.o.o.;. :.;■' o.o 




RES 









DATA.l 


0»3»0>C 


LIN.S 1-0 




DATA.l 


0.3.0.0 


LIN.S 5-« 




DATA.l 


00. 1.3 


LINkS 9-12 




DATA.l 


0.7.0.2 


LIN.S 12-16 




DATA.l 


0.0. 0.0 


LIN.S 17,20 




DATA.l 


C.0'0.0 


LIN.S 21-20 




DATA.l 


OO'O'O 


LIN.S 25-i« 




DATA.l 


oo« 0.0 


LIN.S 29-32 




DATA.l 


O'O'O.O 


LI~J.S 33-36 




DATA.l 


C'3.3.1 


LINkS 37-oC 




DATA.l 


J_'JUXlO 


LINkS Ol.oo 




DATA.l 


0' 0.0.0 


LINKS 05-08 




DATA.] 


O.O'O.O 


LINkS 09-52 




DATA.l 


0.0. 0.3 


LINKS 53-56 




DATA.l 


1.1.3.C 


LINkS 57-60 




DATA.l 


OO'O.O 


LINkS 61-60 




DATA.l 


0.0.0.0 


LINKS 65-68 




DATA.l 


0.0.0.0 


LINKS 69-72 




DATA.l 


o.j.3.1 


LINKS 73-76 




DATA.l 


3.1.3.1 


LINkS 77-80 




DATA.l 


3M.3.1 


LINkS 81-60 




DATA.l 


3.1.3.1 


LINKS 85-88 




DATA.l 


3'C'O'O 


LINkS 89-92 




DATA.l 


0'0'0'C 


LINKS 93-96 




DATA.l 


OO'O'O 


LINKS 97-100 




DATA.l 


O'C'0'0 


LINKS 101-100 




DATA.l 


O'C'O.c 


LINkS 105-108 




DATA.l 


J. 1.1.1 


LINKS 109-11? 




DATA.l 


DO'0.3 


LINkS 113 - 116 




DATA.l 


0'0'O.C 


LINKS 117-120 




DATA.l 


O'O'O'O 


LINKS 121-120 




DATA.l 


0.0'0'C 


LINKS 125-128 




DATA.l 


O'O'O'O 


LINKS 129-13? 




DATA.l 


O'O'O'l 


LINKS 133-136 




CATa.i 


O'O'O.O 


LINkS 137-100 




CATa.i 


3'1'0'D 


LINKS 101-100 




DATA.l 


O'l'3'l 


LINkS 105-108 




DATA.] 


3'3»0.0 


LINkS 109-15? 




DATA.l 


1.3O-0 


LINkS 153-156 




DATa.i 


3.1.3.1 


LINKS 157-160 




DATA.l 


3.0.0.0 


LINKS 161-160 




DATA.l 


3.3.3.3 


LINKS 165-168 




DATA.l 


1.3. 0.0 


LINkS 169-172 




DATA.l 


o.o.o. c 


LINkS 173-176 




DATA.l 


3.1.0'C 


LINKS 177-130 




DATa.1 


o.o. o.c 


LINKS 181-180 




DATA.l 


O'O'O.O 


LINkS 185-188 




DATA. 1 


0'1'0«6 


LINkS 189-192 




DATA 


O'O'O.O. O.O'O 


0. O'C. 0.0.0. 0»0< O.O'O 





22 


1080 


22 


108] 


22 


108? 


22 


1083 


22 


1080 


22 


1085 


22 


1*86 


22 


1087 


22 


1088 


22 


1089 


22 


1*93 


22 


1*91 


22 


1*92 


21 


1093 


22 


1090 


22 


1095 


12 


I 096 


22 


1097 


12 


1098 


12 


1099 


22 


150C 


22 


1501 


?2 


1*:? 


22 


1503 


22 


153* 


22 


1535 


22 


1536 


'I 


1S37 


22 


i»r« 


>2 


15:9 


?2 


is;: 


22 


:»n 


22 


is:? 


22 


•.5:3 


2> 


: » : » 


21 


•.sis 


22 


:»: 6 


?2 


•■>: 7 


22 


isi f 


ii 


:v» 


22 


'.^ j ." 


22 


:62; 


12 


!3t" 


22 


:■>*) 


?.- 


:»<>» 


22 


13'5 


2? 


1626 


2i 


:ss7 


?2 


1».'« 


2c. 


•.5^. 


22 


163' 


?2 


■.53: 


?2 


13" 


22 


•.5 31 


22 


13 <• 


2? 


13 <5 


21 


:sj» 


a 


13 )7 


22 


;= )« 


2? 


151? 


22 


ISO- 


i2 


IS- 1 


22 


;s-» 


22 


13-3 


22 


ID.* 


22 


13*5 


22 


13*6 


22 


J5*7 


22 


l*o« 


22 


13*9 


22 


135- 


22 


1531 


22 


153? 


22 


1553 


22 


135* 


22 


1355 


22 


1556 


22 


1557 


22 


1S5» 


22 


1339 


22 


136; 


22 


1561 


22 


136? 


22 


1363 


22 


1360 


22 


1565 


22 


1566 


22 


1367 


22 


1568 


22 


1369 


22 


137; 


22 


1371 


22 


157? 


22 


13/3 


22 


15/0 


22 


1575 


22 


1576 


22 


1577 


22 


1578 


22 


1579 


22 


ISH3 


22 


1531 


22 


138? 


22 


1583 


22 


1580 


22 


1585 



163 



j1LN< 



RES 











DATA.l 


50,5o,5o,50>5o»50 


50*50 


so 


30 


D*T»»1 


50*5o«5o»50»50*50 


50*50. 


50 


50 


DATA.1 


50*53,50,50*50*50 


50*50 


50 


50 


DATA.l 


50«5o.5o*50*5o*50 


5 *50i 


50 


5C 


DATA*1 


5C. 50,50,50.53.50 


50<50 


50 


50 


D*T»»1 


50. 50.5Q. 50. 50. 50 


50*50 


SO 


50 


DATA.l 


5C» 50.50. 50'50<50 


50*50 


50 


sc 


DAT*,1 


50.50.50.S0.50.50 


50*50 


50 


50 


DATA.l 


5:. 50.5c. 50. 50. 50 


5u*50i 


50 


50 


DATA/1 


50,50.50,50.50.50 


50*50 


5c 


50 


DATA.l 


50,50.50.50.50.50 


50*50 


50 


SO 


DATa.1 


50.50. 5o. 50. 50. 50 


5y.50 


50 


50 


OATA/1 


50. 50. 50, 50.50. 50 


50*50. 


50 


50 


OATA.l 


50.50.50,50.50,50 


50*50. 


50 


50 


DATA.l 


50* 50, 50, 50. 50.50 


5J*50, 


5j 


5: 


DATA.1 


5..50. 50*50.50. 50 


50.50. 


50 


5C 


DATA.l 


50.50,50.50.50,50 


50*50 


5C 


50 


DATa,1 


So. 50, 50. 50. 50*50 


50.50. 


5C 


5n 


DATA.l 


50. 50, 50. SO. 50. 50 


50.50 


50 


50 


DATA.l 


50.50,50.50.50.50 


50.50 


50 


so 


DATa, i 


So. 50, 50,50.50. 50 


50*50 


50 


so 


DATA.l 


50.50.50,50.50.50 


50*50 


5" 


50 


OaTa.1 


50,50.50.50.50.50 


50*50 


50 


5n 


DATa.1 


50,50.50,50.50.50 


50*50 


50 


SO 


CATa.1 


5:. 50. 50*50*53*50 


50*50 


5C 


50 


CaTa.i 


5.»50*50*50*50*50 


50*50 


5C 


50 


DATA.l 


5C» 50. 50. SO 


:»lpm 




<<ES 











DATA.l 


* »*2»»o.»2 








DATA.l 


*0.25»*C«25 








DATA,! 


21. 29. 2", 3» 








DATA.] 


2b. 33, 27, 30 








DATA,] 


*6»**» *6*»* 








DATA.l 


»9»»*»»9»i.7 








DATa.1 


36**7. 36. *7 








DATa.i 


38,36,11,36 








DATa.i 


11.36,11,36 








DATA.l 


11.36, 255*255 








DATA.l 


11,3,5*1 








DATA.l 


2*1*1^*1 








DATa.i 


1C.7,13,12 








DATa.i 


ID, 16, IS, 16 








DATa.i 


52,16.52,15 








DATa.i 


56,5a, 122, 12, 








DATa.i 


U9. 1.6.151, 153 








DATa.i 


132*li7*l*3*l!>; 








DATa.i 


IS*. 110, 127,7a 








DATa.i 


1*9,8**79. 157 








CaTa,i 


131. 1»1. 135. 165 








DATA.l 


l*l*15*»l79.19r 








DAT.,1 


183.1.8*1.9.1,6 








DATa.i 


11**111*73,72 








DATa.i 


77,75.90,76 








DATa.i 


156. 15*. 160*156 








DATa.i 


16«»lt>2,lS3. isi 








DATA.l 


149. 112,76.79 








DATA.l 


155. 1S9. 116. 116 








DATa.i 


56.56.6,., 107 








DATa.i 


103.61.1CJ.10- 








DATa.1 


Kill 01,96.39 








DATa.i 


86,65*62*68 








DATa.1 


66,70,102,255 








DATa.i 


235.2S5, 255.205 








DATa.i 


99,90.82.97 








DATA.l 


83, 17»,i66, 177 








DATam 


168. So. 91. 255 








DATA.] 


9A, 255. 171,253 








DATA,! 


22.255.92,69 








DATA.l 


95,71,173.105 








DATA.l 


81. ««. 167, 169 








DATA.l 


67,251,2*2,2*5 








DATa.1 


2*2. 2*5. 2***2*6 








DATA.l 


2*6*218,212,217 








DATa.1 


207.2:3,205.208 








DATa.i 


201. 2.6, 200. 202 








DATa.1 


2:;«2.2,19S. 198 








DATa.1 


0*0* 35*1.1 








DATA.l 


2*. 28*31, 32 








DATa.1 


»3,»5,*8,35 








DATa.i 


37,2,3,8 








DATA.l 


125,1*7,138. 185 








DATa.i 


163.192,187,166 








DATa.i 


186.170,99,63 








DATA.l 


2*3*215,216.21* 








DATa.i 


2C9.21C.203, 199 








DATA.l 


198.157 








DATa.1 


0*0 








DATA 


0»0'0<C. 0*0*0*0 








BBoi.D 


» 








DATa.i 


12-.*5.».0 


LINK 


s 


3Bt 


DATa.1 


0***5.120 


L 1 






DATa.i 


7.120.5.* 


L 2 






DATa.1 


*. 5. 120*7 


L 3 






DATa.i 


9*7.120.5 


L * 






DATa.1 


5.120.7,9 


L 5 






DATA.l 


10,9,7*120 


I 6 






DATa.1 


120.7,9.1., 


L 7 






DATa.i 


6*10*9*7 


L 8 






DATA.l 


7»9.1o'6 


L 9 






DATA.l 


0'11»9<0 


L lr 






DATA.l 


0*9*11*0 


I 11 






DATA.] 


0*11*10*0 


L 1? 






DATa.1 


9. 10. 11. C 


L 13 






DATa.i 


121*6.10*9 


L 1* 






DATA/1 


7*9*10*11 


L 16 







22 


1586 


22 


1587 


22 


1588 


22 


1589 


22 


1590 


22 


1591 


22 


1592 


22 


1593 


22 


159* 


Z2 


1595 


22 


1596 


22 


1597 


22 


1598 


22 


1S99 


22 


1600 


22 


1601 


22 


1602 


22 


1603 


22 


160* 


22 


1605 


22 


1606 


22 


1607 


22 


1618 


2? 


1609 


22 


1610 


22 


1611 


22 


161? 


22 


1613 


22 


161* 


ZZ 


1615 


22 


1616 


22 


1617 


ZZ 


1618 


22 


1619 


22 


162: 


22 


1621 


ZZ 


1622 


22 


1623 


ZZ 


162* 


22 


1625 


I Z 


1626 


22 


1627 


ZZ 


1628 


22 


1629 


22 


1630 


ZZ 


1*31 


82 


16J2 


22 


•.633 


22 


161* 


22 


16 1; 


22 


-.6 36 


22 


16)7 


ZZ 


1638 


22 


16J9 


ZZ 


16*: 


ZZ 


16*! 


ZZ 


16»» 


22 


16.3 


22 


: »- * 


22 


:6»« 


22 


'.6. A 


21 


16.7 


21 


:6*« 


22 


16-9 


22 


:*>•>- 


22 


•.' = t 


22 


165? 


22 


•.'53 


22 


;6s. 


22 


:6->5 


22 


165A 


ZZ 


16a7 


ZZ 


:6m 


Z2 


1659 


21 


'.66- 


22 


16A t 


22 


1663 


ZZ 


16A3 


ZZ 


16A* 


22 


•.665 


22 


1666 


22 


1667 


22 


16*« 


Z2 


1669 


22 


167' 


22 


1671 


22 


167? 


22 


1673 


22 


167A 


ZZ 


1675 


22 


1676 


ZZ 


1677 


22 


1678 


22 


1679 


22 


1680 


22 


1681 


ZZ 


168? 


ZZ 


1683 


zz 


168* 


22 


168? 


22 


16*6 


22 


1617 


ZZ 


1688 


22 


1689 


22 


1690 


22 


1691 



164 



DATA.l 



9.10.6.121 l-INK 16 GkP? 

DATA.l 122.121.6.10 LINK 17 

DATA.l 10.6. 121-122 LINK 1* 

DATA.l 123.122.12L6 LINK 19 

DATA.l 6.121.122.123 LINK £0 

DATA.l 2.123.122.121 LINK 21 

DATA.l 121»122.123'2 LINK ? 2 

DATa.1 3.2.123.122 LINk 2 3 

DATA.l 122.123.2.3 LINK |* 

DATA.l 12.3.2.123 L Nk 25 

DATA.l 123.2.3.12 LINK 26 

DATA.l 106.12.3.2 LINK 27 

DATA.l £.3.12.106 LIN* ?8 

DATA.l 105.106,12,3 LINK ?9 

DATA.l 3.12.106.105 LINK 30 

DATA.l 10*. 105.106. 12 LINK 31 

DATa.1 12,106.105.10* LINK 32 

DATa.1 103. 10*. 105. 106 LINK 33 

DAtUI 106.1.5.10*. 103 LINK 3*. 

DATa.1 17,103. 10*. 105 LINK 35 

DATA.l 105. 10*. 103. 17 LINK 36 

DATA.l 0.17.103.10* LINK 37 

DATA.l 0.106.22.0 LINK 39 

DATA.l u» 22. 106.0 LINK 39 

DATA.l 10*. 1^3, 17,0 LIMK *0 GSP3 

DATA.l 16,15.13.0 LINK »1 

DATA.l 0.13.15.1* LINk *2 

DATA.l 1*. 16. 15. 13 LINK *3 

DATA.l 13.15,16.1* LINK *« 

DATA.l 17,1*,16.15 LINK *5 

DATA.l 15,16.1*»17 LINK »6 

DATA.l 18,17,1*, 16 LINK *7 

DATA.l 16,1*, 17, 18 LINK »8 

DATA,1 1.18.17.1* LINK *9 

DATA.l 1*. 17, 18.1 LINK 50 

DATA.l 19,1,18,17 LINK 51 

DATA.l 17,18.1.19 LINK 52 

DATA.l 20.19.1,18 LINK 53 

DATA.l 16,1,19,20 LINK S* 

DATA.l 21.20.19.1 LINK 55 

DATA.l 1.19.20.21 LINK 56 

DATA.l 23,21,20.19 LINK 57 

"BaTa.1 19.20.21.23 LINK 58 

DATA.l 2*. 23, 21. 20 LINK 59 

DATA.l 20.21.23.2* LINK 60 

DATA.l 27, 2*. 23. 21 LINK 61 

DATA.l 98.74,7b. 76 LINk 62 G»P* 

DATA.l 7*. 75, 76, 77 LINK 63 

DATA.l 75.76,77.8* LINK 6* 

DATa.1 76.77, B», 85 LINK 65 

DATA.l 77, 8*. 85.86 LINK 66 

DATA.l S*. 85. 36,81 LINK >>7 

DATA.l 85.86.81.82 LINK 68 

DATA.l 86,81,82,63 LINk 69 

DATA.l 81.82.83.96 LINK 70 

DATA.l 82.83.96.97 LINK 71 

DATA.l 83.96.97.0 LINK 72 

DATA.l 0.76.72.70 LINK 73 

DATA.l 62.73,77.0 LINK 7* 

DATA.l 0.9*. 59. 63 LINK 75 

DATA.l 6*. 60. 85.0 LINK 76 

DATA.l 0.86.61.65 LINK 77 

DATA.l 65.61,86.0 LINK 76 

DAT».l 0.81,87.90 LINK 79 

DATa.1 9C. 87. 81.0 LINK "0 

DATA.l 0,82.68,91 LIN» f\ 

DATA.l 91.88.62.0 LINk "2 

DATa.1 0»83.e9»C L1N» A3 

DATA.l 0.89. 63.0 LINk »» 

DATA.l 0.96,100,0 LINk 95 

DATA.l 0.100.96.0 LINK 86 

DATa.1 0.97,99.0 LINK 87 

DATA.l 0.99.97.0 LINK 9* 

DATA.l 73.72,25.0 LINK 99 

DATA.l 0.25,72,73 LINk 9; 

DATA.l 59,73,72,25 LINk «i 

DATa.1 25.72.73,59 LI'k 92 

DATA.l 60.59,73,72 93 

DATA.l 72,73,59.60 9* 

DATa.1 61.60.59.73 95 

DATA.l 73.59.60.61 96 

DATA.l 87,61.60.59 97 

DATA.l 59,60.61.87 96 

DATa.1 88.87.61.60 99 

DATA.l 60.61.87.88 100 

DATA.l 89,88,87,61 101 

DATA,1 6W87.88.69 102 

DATA.l 100.89.88.87 103 

DATA.l 87,88.89.100 10* 

DATA.l 99.10^.89.88 105 

DATA.l 88.89.100.99 106 

DATA.l 0.99.100.69 107 

DATA.l 89.100. 99.0 108 

DATA.l 69,62.73,77 l u 9 

DATA.l 67, 6*. 60. 85 110 

DATA.l 68.65.61.86 111 

DATA.l 93.90,87,81 112 

DATA.l 9*. 91. 88.82 113 

DATA.l 23, 98, 7*, 75 115 

DATA.l 21. 23.2*. 26 119 

DATA.l 71. 27. 2*. 23 116 

DATA.l 23, 2*. 26. 71 H7 

DATA.l 0.2*. 98.0 11 

DATA.l 2*. 26. 71, 70 119 

DATA.l 7C.7l.27. 2* 120 

DATA.l 0.9S.2».0 12 



22 1692 


22 1693 


22 169* 


22 1695 


22 1696 


22 1697 


22 1698 


22 1699 


22 1/00 


22 1 


.701 


22 : 


170? 


22 : 


1703 


22 : 


L70* 


22 


1705 


22 


L706 


22 


1707 


22 


1708 


22 


1709 


22 


1710 


22 


1711 


22 


1712 


22 


1713 


22 


171* 


22 


1715 


22 


1716 


22 


1717 


22 


1718 


22 


1'19 


22 


1720 


22 


1721 


22 


1722 


22 


1723 


22 


172* 


ZZ 


1725 


22 


1726 


22 


1727 


22 


1728 


22 


1729 


22 


1/30 


22 


1731 


22 


1732 


22 


1733 


22 


173* 


22 


1735 


22 


1736 


22 


1737 


22 


173B 


22 


1739 


22 


17*3 


22 


17*1 


22 


17*2 


22 


17*3 


22 


l7»» 


22 


17*5 


22 


17*6 


22 


17.7 


22 


17*8 


22 


17*9 


22 


1750 


22 


1751 


22 


1'52 


22 


1/53 


22 


175* 


22 


1'55 


22 


1756 


22 


1757 


22 


1/59 


22 


1759 


22 


1760 


22 


17*1 


22 


1/62 


22 


1/63 


22 


•7*» 


22 


1/65 


22 


1/66 


22 


1/67 


22 


l'>« 


22 


;7AO 


22 


17/- 


22 


'./7l 


ZZ 


■77? 


zz 


l/'3 


22 


l/7„ 


22 


1775 


22 


i 7^^ 


2? 


1//7 


22 


l/'« 


22 


1//9 


Zi 


1/90 


zz 


17M 


zz 


17«S 


zz 


l/«3 


zz 


1/8* 


22 


1/k; 


22 


17*6 


22 


1/97 


22 


i J7KB 


Zi 


17*9 


Zi 


| 179? 


Zi 


! 1741 


2; 


! \7*Z 


2; 


! 1/93 


Zi 


! 179* 


ZZ 1/95 


ZZ 1796 


22 1797 



165 



D*TA< 


I 69, 


70,71,26 


DATA/ 


1 26, 


71,70,69 


DATA. 


1 66, 


69,70,71 


UATA. 


1 71, 


70,69,66 


DATA, 


1 54, 


66,69,70 


DATA. 


1 7„, 


69,66,5* 


DATA, 


1 53, 


51,66,69 


DATA, 


1 69, 


66,51,55 


DATA, 


1 56, 


55,51,66 


DATA 


, 1 bt 


,5*,55,5( 


DATA, 


1 3» = 


6,55,51 


DATA, 


I 54, 


55,56,0 


DATA, 


1 O't 


2,70,0 


DAT«, 


1 69, 


62,63,61 


DATs, 


1 62, 


63,61,65 


DATA, 


1 63, 


61,65»9& 


DATA, 


1 64, 


65,90,91 


DATA, 


1 65, 


9o,9l,C 


DATA, 


[ ~ ' £ 


9,62,73 


DATA, 


1 59, 


63,66,0 


DATA, 


1 54, 


67,64,6c 


DATA, 


1 61, 


65,63,55 


DATA, 


1 55, 


68,65,61 


DATA, 


1 87, 


90,93,36 


DATA, 


1 56, 


93,90,87 


DATA, 


1 88, 


91,91,0 


DATA, 


1 0,5 


1,91,88 


DATa, 


I 6<S, 


67,66,0 


DATA, 


1 93, 


68,67,66 


DATA, 


1 54, 


67,68,93 


DATA, 


1 91, 


93,68,67 


CATa, 


1 67, 


68,93,91 


DATA, 


1 0'5 


1,93,6S 


CAT«, 


1 93, 


91,0,0 


DATA, 


1 0»" 


1.75,0 


DATA, 


1 O'C 


,0,0 


DATA, 


1 0,5 


1,67,61 


DATa, 


1 6b, 


68,55,58 


DATA, 


1 56, 


55,65,65 


DATA, 


1 9j. 


93,56,0 


DATA, 


1 G'5 


6,93,90 


DATA, 


1 76, 


72,70,0 


DATA, 


1 8*, 


59,63,o6 


DATA, 


1 86, 


61,65,68 


DATA, 


1 81, 


87,90,93 


DATA, 


i 82, 


88,91,91 


DATa, 


1 51, 


58,55,68 


DATA, 


1 68, 


55,58,51 


DATA, 


1 52, 


5<,58,55 


DATa, 


1 55, 


58,51,52 


DATA, 


1 53, 


52,51,58 


DATA, 


1 58, 


51,52,53 


DATA, 


1 42, 


53,52,51 


DATA, 


1 51, 


52,53,12 


DATA, 


1 0<« 


2,53,52 


DATA, 


1 52, 


53, 12, J 


DATA, 


1 0,1 


2,11,10 


DATA, 


1 to, 


11,12,0 


DATA, 


1 12, 


11,10,39 


DATA, 


1 39, 


10,11,12 


DATA, 


1 11 


10,39,33 


DAT-. 


1 33 


39,10,11 


DATA, 


i i: 


.39,33,50 


DATA, 


i 5: 


.33,39,10 


DATA, 


1 33 


,33,50,32 


OATA, 


1 32 


,50.33,39 


DATA, 


1 33 


,5o,32,Jl 


DATA, 


1 31 


,32,50,33 


DATA, 


1 5; 


32.31.C 


DATA, 


1 0, 


31,32,50 


DATA, 


1 o, 


- , 2 , C 


DATA, 


1 o. 


-,0,0 


DATA, 


1 0, 


:« 120,0 


DATA, 


1 o* 


:<i20,o 


DAT-, 


1 c 


5,9,0 


DATA, 


1 0, 


5,1„,G 


DATA, 


1 o. 


'•11,0 


DAT», 


1 j. 


KIllO 


DATA, 


1 0, 


;, 121,0 


DATA, 


1 0, 


DM21,0 


DATA, 


1 J, 


^,123.0 


DATA, 


1 ill 


5»12#0 


DATA, 


1 J, 


>k<j 


DATA, 


1 c< 


i, 15,16 


DATA, 


1 0" 


5. 15. 13 


DATA, 


1 c , 


3» 17, 103 


DATA, 


1 c 


5,76,72 


DATA, 


1 j. 


:,8»<59 


DATA, 


1 o. 


;<82>iB 


DAT-, 


1 L* 


5,97,99 


DATA, 


1 0, 


1 <89,53 


DATA, 


1 0, 


5>l-_:>9& 


DATA, 


1 62 


88,91, 


UATA, 


1 J, 


5, 6a, 62 


DATA, 


1 D, 


■« 5i,67 


DATA, 


1 J* 


~ , 5 3 , 


DAT-, 


1 u' 


:«i2>»i 


DATA, 


1 39 


13,11,0 


DATA, 


1 u. 




DATA, 


1 0, 


5,1 j, 11 


DATA, 


I 32 


50, J3,0 


DATA, 


1 2 = 


29,31,'. 


DATA, 


1 c» 


j, 31. 32 


DATA, 


1 ; , 


•31,29 


DATA 


. , 


■,0.0,3,0 


DATA 




50,0,0.3 



122 

123 

121 

125 • 

126 

127 

128 

129 

130 

131 
132 
133 
131 
135 
136 
137 
138 
139 
HO 

111 

112 
113 
111 
115 
116 
H7 
118 
119 
150 
151 
152 
153 
151 
157 

LINK 157 

158 

159 

160 

161 

162 

163 

161 

165 

166 

167 

168 

169 G°P6 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

ISO 

181 

182 

163 

181 

185 

186 

187 

188 

169 

190 

191 



,o< j«o< o,;>: 



c:<0>; 
:>0'0.i.j 



22 1 


79? 


22 ! 


799 


22 1 


803 


22 1 


801 


22 1 


932 


22 1 


853 


22 1 


831 


22 


835 


22 


836 


22 


837 


22 


838 


22 


839 


22 


810 


22 


811 


22 


812 


22 


813 


22 


811 


22 


815 


22 


816 


22 


817 


22 


818 


22 


819 


22 


820 


22 


821 


22 


82? 


22 


8?3 


22 


821 


22 


825 


22 


826 


22 


827 


22 


828 


22 


1829 


22 


1830 


22 


1831 


22 


1832 


22 


1833 


22 


1831 


22 


1835 


22 


1836 


22 


[337 


22 


1838 


22 


1839 


22 


18*C 


22 


1841 


22 


181? 


22 


1843 


22 


844 


22 


1845 


22 


1846 


22 


1847 


22 


1848 


22 


(849 


22 


1850 


22 


1851 


22 


18b? 


22 


1853 


22 


1854 


22 


1855 


22 


1856 


22 


1857 


22 


1858 


22 


1859 


22 


I860 


22 


[861 


22 


186? 


22 


1863 


22 


1861 


22 


1865 


22 


866 


22 


847 


ii 


868 


22 


869 


22 


870 


22 


871 


22 


87? 


22 


873 


22 


374 


22 


875 


22 


876 


22 


877 


22 


87! 


22 


879 


22 


880 


22 


831 


22 


8«? 


ii 


893 


22 


834 


22 


985 


22 


936 


22 


887 


22 


9Ǥ 


22 


389 


22 


39- 


ii 


99! 


22 


89P 


22 


B9J 


22 


394 


ii 


395 


22 


BSf, 


22 


397 


22 


318 


a 


399 


22 


933 


ii 


931 


22 


9?? 


22 


933 



166 



SP"VT 

JALPM 



sjom 

I.CONT 



QCNTSI 

NCISWP 
Nit I UP 



»CCR 

• NBL 

set 

\G"<PS 
-IISCL 
CIC1MH 

CVCREF 



!Nta 



PATNG 
ABOSmT 



B6Uf«0 
RES 

DATA.l 

SPACE 

BOUND 

DSECT 

DATa.1 

DATA.l 

DATA.1 

OATa.1 

DATA/1 

DATa.1 

DATA.l 

DATa.1 

DATA.l 

DATA.l 

DATA.l 

DA.UjI 

DATA. 

DATA, 

DATA. 

DATA.l 

DATA, 

OATA, 

DATA. 

DATA, 

DATA, 

DATA, 

DATA, 

DATA, 

DATA, 

DATA, 

DATA.l 

BBUND 

DSECT 

DATA.l 

DATA,] 

DATA.l 

DATA.l 

DATA.l 

DATA.l 

DATA,] 

DATa,i 

DATA,1 

DATA 

BBUnO 

DATa,1 

B8U.\0 

DATA.l 

Beu\D 

DATA.l 

B8usD 
DATA.l 
DATA.l 
RES 

DATA.l 
BBUmD 
DATA 
■ NL 
DATA 
DATA 

DSECT 
DATA 
Data 
DATA.l 
B8U'\D 
DATA.l 
DATA.l 
DATA.l 
DATA.l 
DAT..1 
DATA.l 
DATA. 1 

DATA 
DATA 
B9U\D 
DATa.1 
DSECT 
RES 
DATA, 
DATA, 
DATA, 
DATA, 
DATA. 
DATA, 
DATA, 
CATa, 
DATA. 
DATA, 
DATa. 
DATA. 
DATA. 

DATA. 

DATA. 
DATA. 
DATA, 
DATA. 
DATA. 
DATA. 
DATA, 
DATA. 
CATa. 
DATA, 
DATA. 
CATA. 
DATA. 





0. 16. 

2 



>0«62,U6«;69,0«0 





lCCloC 

lOO'lOO 

100.100 

ICO'lOC 

100.100 

100» IOC 

ISO. IOC 

100. IOC 

100.100 

100' ll* 

11*. 11* 

100.100 

lOO'lOO 

ICO'luC 

ISO' too 

ICO'loC 
100.1 JO 
ICO' loo 
lOO'lOO 
100.100 
100.100 
100' loo 

loo* loo 

lOO'lOO 

lro'loo 

lOO'lOO 
1C0« 100 



.100. 
,100i 
,100i 
,100i 
,100/ 

• 100i 
.100' 
,100. 
>100i 

.11*' 
.lit' 

.100' 
.100. 
,100' 
.100' 
.100' 
.100' 
.100' 
.100' 
.100. 
.100. 
.100. 
.100. 

• 100' 
.100' 
«100' 
.100. 



100.100 
100.100 
100.100 
100.100 
100.100 
100.100 
100.100 
100,100 

loo.ioo 
11*. 11* 
11*. 11* 

100' 100 
100,100 
100.100 
100' 100 
100,100 
100,100 
100.100 
lOO'lOO 

loo.ioo 

100' 100 
100' 100 
100*100 

100.100 
100.100 
lOO'lOO 



ino 


100 


100. 


100 


ICO 


IOC. 


ICOj 


ICO 


100. 


100 


100 


100. 


100 


ICO 


100. 


100' 


100 


100. 


100- 


100 


100. 


100' 


100 


100. 


IOC 


IOC 


100. 


11*1 


11* 


11*. 


11*' 


11*1 


11*. 


100. 


looi 


100. 


loo. 


100/ 


100. 


100' 


lOOi 


100. 


100< 


lcoi 


100. 


100' 


lCOi 


100. 


100' 


100' 


100' 


100' 


lCOi 


100, 


100' 


100' 


100' 


100' 


100' 


100' 


100' 


100' 


100. 


100. 


ICO' 


100' 


100. 


100/ 


100< 


100. 


100' 


100' 


100. 


100' 


loo. 


100. 


100' 


100" 



il'C 
.1 00 
.lOO 
,100 
,100 
,100 
,1CC 
.IOC 
.100 

.11* 

.100 
.100 
.100 
.100 
,100 
«100 
'100 
.100 
'100 
'100 
.100 
'100 
.100 
'100 
'100 
.100 



».S. 120. 7. 9. 10« 11 GRPl 

6. 1 21, 1 22. 123. 2. 3. 12» 106. 105.10*»lo3» 22 GRP? 

13.15, 16, l*.lT'i8'l'l9'?o»21'23 GRP3 

98. 7*. 75. 76. 77, »4« 85, 86, 8 l»8j» 83, 96. 97 GPP* 

25, 72, 73, 59,60' 61 '«7, 88, 89, 100' 99 

2*,27,26,7i,7o»69»66»5*,55'56'62 GRP5 

63, 64' 65, 9o»9l»&7» 68, 93, 9* 

58.5i.52,S3.*2»»l.»0»39.33»5o»32,3l GRP6 

O'O 

O'O'O.O.O'O.O'O.O 



0.7. 19. 30. 5*. 7* 

* 

1.2.3.*. 5. 6 

* 

7>l2,ll»2*.20»12 

it 

16. 2*. 22. 5*. 53. ?3 

O'O 



*' 3.2.15.9,7 



NUMBER 8F 20C L1NKS/GR8UP 



12* 

number bf gc-2 li^s un cbimbm 

230 



0.0.0.0.0,0,0,0 

0,0,0 
0,1, 2, 3'*' 5, 6. 7. 8. 9. 10' 11. 12. 13.1*. 15. 16.0.0.0 
* 

120.9.10.11 GPBuP 1 

121.123.12 GR8UP 2 

15,17 GRBuP 3 

76,77,84,85.82.97.72.73.59.61.87,38 GRBUP * 
89,100»99 

70. 91, 69. 66. 5*. 55. 68. 93,9* GP.8UP 5 
53.*2.«l,*0'33,50'3l GROUP 6 
O'O'O'O.O'O'O.O.O'O'O 
0« O'O. 0.0« O'O' 0. O'O 
* 

0.*. 7. 9. 2*. 33.0,0 





1.3»0. C 
1.6.0. _ 

1<»»0'G 
1.»<0.C 

1 . * . . 

1.2'C'C 

l'*<0<0 

O'O' 0.0 

15.7.13.0 

1.7'*.0 

1.4.5. C 

1'3»0«C 

1»».0.C 

1.5.1.0 

1.6.*<C 

1.7.1.0 

1'5'7.C 

1.3.0.0 

1.3.0.0 

1.13,5,0 

1.5.0.0 

1.3.0.0 

1,6,*' J 

15-8.1.0 

1.2.0.0 

15'11'j'O 

1.6,0.0 



C8NT. 1 

2 

3 

* 

5 

6 

7 

N8NE»IST b 

9 

10 

11 

12 

13 

1* 

15 

16 

i-7 

18 
19 
20 
21 
22 
23 

25 
26 



2? 


190* 


SS 


1905 


SS 


1906 


22 


1907 


22 


190! 


SS 


1909 


SS 


1910 


22 


1911 


Si 


1912 


SS 


1913 


SS 


191* 


22 


1915 


22 


1916 


22 


1917 


22 


1918 


22 


1919 


SS 


192; 


SS 


1921 


SS 


192? 


SS 


1923 


SS 


1924 


SS 


1925 


SS 


1926 


SS 


1927 


SS 


192B 


SS 


1929 


SS 


1930 


SS 


1931 


SS 


1932 


22 


1933 


22 


193* 


SS 


1935 


SS 


1936 


SS 


1937 


SS 


1938 


SS 


1939 


SS 


19*0 


SS 


1»*1 


SS 


l9»2 


iS 


19»3 


ii 


1944 


SS 


1945 


SS 


1946 


ii 


1947 


Si 


1948 


SS 


1949 


SS 


1950 


SS 


1951 


22 


1952 


22 


1953 


22 


1954 


ii 


1955 


SS 


1956 


SS 


1957 


SS 


1958 


Si 


1959 


ii 


I960 


22 


1961 


SS 


1962 


SS 


1963 


ii 


1964 


ii 


1965 


ii 


1966 


SS 


1967 


SS 


1968 


SS 


1969 


SS 


1970 


iS 


1971 


SS 


1972 


a 


1973 


is 


1974 


22 


1975 


is 


1976 


SS 


1977 


iS 


1978 


SS 


1979 


iS 


1980 


SS 


1981 


id 


19SJ 


ii 


1983 


iS 


1984 


ii 


1985 


iS 


1986 


Si 


1987 


Si 


'.988 


ii 


1989 


Si 


1990 


Si 


1991 


Si 


1992 


Si 


1993 


ii 


1994 


ii 


1995 


ii 


1996 


ii 


1997 


ii 


1998 


ii 


1999 


a 


2000 


ii 


2001 


ii 


2002 


iS 


2003 


2? 


2004 


SS 


2J35 


IS 


2006 


is 


2C07 


2? 


2001 


sp 


2009 



167 



DAT* 
DATA 
DATa 
DATA 

DATA 
DATA 
DATA 

DAT 

DAT 

DAT 

DAT 

DAT» 

DATA 

DATA 
DATA 

DAT 

DATA 

DATA 
DATA 
DATA 

DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

D*TA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA. 

CATa 
ASjtEND RES 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



<1 7 
»1 1 


* k 

i7 


0/ 
li 


• 1 1 


• k 


>0» 


'1 1 


• k 


0< 


'1 1 


iS 


3. 


'1 1 


.5 


•0» 


<1 1 


.3 


>0» 


• 1 1 


>5 


3« 


'1 I 


. 7 


1 3 


'1 1 


• k 


6< 


'1 1 


>5 


>1« 


<1 1 


• k 


3' 


'1 1 


> i* 


• 3< 


/I 7 


. k 


1* 


»1 1 


>3 


0< 


• 1 1 


>3 


Oi 


<1 1 


>* 


0» 


'1 1 


• 3 


0» 


'1 1 


>6 


3}« 


'1 1 


• 3 


3. 


'1 1 


3 


3' 


»1 1 


3 


3. 


'1 1 


• 3 


3. 


• 1 1 


3 


3< 


<1 1 


7 


1» 


'1 1 


>6 


1« 


'1 1 


>5 


0» 


>\ 1 


4 


0. 


»1 1 


3 


3. 


<1 1 


'? 


3» 


'1 1 


■ 5 


B> 


• 1 1 


<h 


0» 


»l u 


It. 


}# 3 


<1 1 


Hi 


0> 


<1 1 


5< 


0- 


<1 1 


5 


0»( 


«1 1 


« 


1»( 


>l 1 


5 


3. 


»1 1 


6' 


3. 


'1 1 


k 


0'< 


<1 1 


* 


3. 


-1 13 


5 


1' 


'1 1 


» 


0» 


'1 1 


4i 


3« 


'1 1 


5 


0» 


'1 1 


6 


4. 


'1 1 


5i 


0» 


' 1 1 


hi 


0' 


'1 


■)' 


0' 


'1 


2' 


0» 


• I 





3' 


«1 1 


4 


0- 


'1 1 


ll 


0» 


t\ 1 


4/ 


0> 


'1 1 


» 


3» 


'1 1 


S< 


0- 


»1 5 


li 


0- 


»1 1 


4; 


3/ 


'1 1 


4j 


»#( 


»1 1 


3 


0» 


>1 1 


5 


o» 


<1 


3' 


3' 


'1 1 


4i 


'- 


>1 1 


Hi 


0< 


»1 





3- 


<1 1 


1 


3. 


<1 1 


Sj 


3< 


<1 1 


« 


0' 


'1 1 


4 


6. 


#1 1 


3 


3' 


'1 





3/ 


»1 

' 1 1 1 


.0 


Oj 


■ I 1 


5 


3. 


/l 1 


4 


3' 


'1 





0< 


»1 


a 


0' 


'1 1 


4 


3' 


<1 1 


6 


1# 


'1 1 


6 


3/ 


»1 1 


6 


0» 


ll 1 


3 


:• 


'1 1 


1 


3' 


>1 1 


k 


3< 


»1 1 


4 


3< 


<1 1 


3 


0< 


'1 1 


>4 


0/ 


<1 1 


3 


0< 


<1 1 


4 


0. 


'1 1 

'1 1 


2 


3- 


L*A 1<3. 


3. 


»1 c 


»C 


3- 









»1 2 


A 


0< 


.1 5» 


it 


)mJ 


«1 2 


>5 


Ot 


.1 2 


-5 


0> 


'1 3 


6 


0« 


»1 1 


2 


0« 


• 1 3 


b 


3- 


'1 





0. 






28 


3 


29 





33 


>>o 


31 





32 


c 


33 





3* 





35 


3 


3b 


/»3 


37 


3 


38 


C 


39 


3 


43 


3 


41 


3 


•2 


3 


»3 


3 


»k 


3 


»5 


3 


*6 





»7 


3 


•m 


3 


*9 





53 





51 





52 





53 





5» 


3 


55 





56 


3 


57 





58 


r 


59 


3 


63 




61 





62 





63 





64 




65 


3 


66 


3 


67 


C 


66 


3 


69 


3 


73 


3 


71 


3 


72 


3 


73 


3 


7t 


C 


75 


C 


76 





77 


C 


78 >.ft-,EXIST 


c 


79 "e'-EXIST 


3 


83 N6NEXIST 


3 


81 


3 


82 


3 


83 


3 


84 




85 


3 


86 


3 


87 


3 


88 





89 


3 


93 




91 


3 


92 (SEXIST 


C 


93 





9» 


3 


95 K.6KEXTST 


3 


96 


3 


97 


3 


98 


3 


99 


3 


130 


3 


131 NBNExIST 


3 


132 >e\Ex!ST 




133 


3 


13* 


3 


135 


3.3 


136 


3 


137 NSNExIST 


3 


138 IvPNExIST 


3 


139 


3 


110 


3 


111 


3 


112 


C 


113 


3 


11* 





115 


3 


116 


3 


117 


3 


118 


3 


119 


3 


120 


5.3 


121 


3 


122 


-0 


J_2? 


3 


124 M5NExIST 


3 


C8NT 1 




2 


C 


3 


c 


4 


3 


5 


3 


6 


3 


7 


3 


8 *8\EXIST 



s; 


2C1? 


22 


2311 


22 


2312 


^^ 


2313 


2i 


2C1» 


?2 


2315 


?.? 


2316 


22 


2317 


?? 


231! 


22 


2319 


22 


???: 


?? 


2021 


22 


2C2? 


22 


2323 


22 


?324 


22 


2325 


22 


2326 


a 


2327 


22 


232! 


!l 


'329 


25 


233? 


?? 


2331 


22 


233? 


?2 


23 3 3 


22 


2334 


52 


23J5 


22 


2336 


22 


2337 


25 


233S 


5? 


2339 


25 


234? 


25 


20M 


22 


2C42 


22 


23«3 


22 


2044 


il 


2045 


22 


2346 


22 


2347 


25 


2348 


SS 


2349 


22 


2353 


22 


2351 


22 


2352 


55 


2353 


21 


2354 


2? 


2355 


55 


20^i 


IS 


2C>7 


Si 


2358 


25 


2359 


ii 


236C- 


32 


2061 


52 


2062 


22 


2363 


22 


2064 


22 


2365 


22 


2366 


22 


2367 


52 


2368 


25 


2369 


22 


2370 


22 


2371 


22 


2372 


22 


2373 


22 


2074 


22 


2075 


22 


2076 


22 


2077 


22 


2078 


22 


2079 


22 


20X0 


25 


23«1 


22 


?B8? 


22 


2B?3 


22 


2384 


22 


2085 


22 


2C<6 


22 


2387 


22 


2388 


22 


23»9 


22 


2390 


22 


2091 


22 


239? 


22 


2093 


2i 


2094 


22 


2095 


22 


20 q 6 


22 


2097 


22 


2898 


25 


2399 


22 


2100 


22 


2101 


22 


2102 


22 


2103 


52 


2134 


22 


2105 


22 


2136 


22 


2107 


22 


2138 


22 


2139 


22 


2113 


22 


2111 


22 


2112 


22 


2113 


22 


2114 


22 


2115 






168 



D»T*» 


1 6.10.3.0 


DAT*. 


1 3.9. 6. w 


DAT*. 


1 3.6.6.0 


DATA, 


1 SikiOiO 


DATA, 


1 3.6.0,0 


DAT*, 


1 *. 6. 2.0 


DATA, 


1 5.7.5.C 


DAT*, 


1 6.9.2.0 


DAT*, 


1 * » 6 < 9 . C 


DAT*, 


I 2.A.0.0 


D*TA, 


1 2.A.0.C 


DAT*, 


1 l.lD.j.O 


DAT*, 


1 3.7.0.C 


D4T*, 


1 2. A. 0.0 


DATA, 


1 3.<4.5,i, 


DATA, 


1 7,11,3,0 


D»TA, 


1 1'2.0'C 


UATA, 


1 io<i*»;»o 


DATA, 


I 5,16.0.0 


DAT-, 


1 3.6.0.0 


DAT*, 


1 5.9.3.0 


DAT*, 


1 3.6/0.0 


DAT*, 


1 6.15,9.0 


DATA, 


1 3.8.0.C 


D*T». 


1 2.6.A.C 


CAT*, 


1 3.7.0.0 


D*TA, 


1 2. A. 0.0 


DAT*, 


i »<s»o<: 


OAT*. 


1 6.8. lb. 


DAT*, 


1 3.5.8.C 


D*T«, 


1 *.6«2.C 


DATA, 


1 3.6.0.0 


DAT*, 


1 3,6.0.0 


DATA. 


1 3.5.3.0 


DAT*. 


1 2.A.0-C 


DATA, 


1 2. ». 0.0 


DATA, 


1 3.5.0.0 


DAT*, 


1 2.*. 3.0 


DATA, 


1 ». 8, 0.0 


DAT*, 


1 2. A. 0.0 


DATA, 


1 2. A. 0.0 


DAT*, 


1 2.A.0.C 


DAT*, 


1 2.A.0.O 


DAT*. 


1 2. A, 0.0 


D*T*. 


1 6.8. A. 


DM*. 


1 5.8.3.U 


DAT*, 


1 3.7.0.0 


DAT*, 


1 3. 6< 0.0 


C*TA, 


1 2. A. 0.0 


DATA, 


1 1.2.0.0 


DATA. 


1 A. 7.0,0 


DATA, 


1 S'8.0.0 


DAT*. 


1 tj8/U#o 


DATA. 


1 3.6.0.0 


DAT*. 


1 A. 8.0.0 


DATA. 


1 A. g.0'0 


DATA. 


1 3.6,9,0 


DATA. 


1 5,16, j, 


DAT*. 


1 A. 9. O'O 


DAT*. 


1 5.8.0'C 


DATA. 


1 3.8.0.0 


DATA, 


1 3.8.0.0 


CAT*, 


1 A.11.A.0 


DATA. 


1 3.5'O.C 


DATA. 


1 3.5,0'C 


DATA, 


1 A.8.0'0 


DAT*. 


1 3.8.5.0 


DATA, 


1 A.8.0O 


DAT*. 


1 3'6'0'C 


DAT*. 


1 0.0'0'C 


DATA. 


1 0.0.0.0 


DAT*. 


1 C'O.O'C 


DAT*. 


1 3'6.0'C 


DAT*. 


1 3. 6' 0»0 


DAT». 


1 3>6<0.0 


DAT*, 


1 3.6,0.0 


DATA. 


1 A. 8< 0.0 


DATA. 


1 7. A. 0.0 


DAT*. 


1 3. 5. O'O 


DAT*, 


1 3.8.6.0 


DAT*. 


1 2.5.0'C 


DATA. 


1 A. 8. 0.0 


DATA, 


1 3,6,9,0 


DATA, 


1 O'O. O'O 


DAT*, 


1 3.6.9.0 


DAT*. 


1 J. 6. 0.0 


DAT*. 


1 O'O'O.O 


DAT*. 


1 3,6.0.0 


DAT*. 


1 A, 7. 0.0 


DATA. 


1 3.6.0.0 


DATA. 


1 3.9.9,0 


DAT*. 


1 2, A, 0,0 


DAT*. 


1 U' 0.0,0 


DATA, 


1 C.0'0.0 


DATA, 


1 A, 7,0, 


DAT-, 


1 A, 8, 0,0 


DAT*, 


1 3.6.0.0 


DATA, 


1 6M2.1A, 


DATA, 


1 0< 0*0.0 


DATA, 


1 O.CO'O 


DATA. 


1 2.7.0.0 


DATA. 


1 5.8.3.0 


DATA. 


1 A.8.0.C 


DAT*. 


1 A/8.0,0 


DAT*. 


1 2. A. 0,0 


DAT*. 


1 3,6.0.0 


DATA, 


1 3.6.0-0 



9 

10 
11 
12 
13 

1A 

15 
16 
17 
lb 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
26 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
Al 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
A9 
50 
51 
5c 
53 
5a 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7» 
75 
76 
77 

78 KBNEXIST 

79 NflNEXIST 

80 NB>JExIST 
81 

82 

83 

8A 

85 

86 

87 

8b 

89 

90 

91 

92 N^EXIST 

93 

9a 

95 ^B^EXIST 

96 

97 

9b 

99 

100 

101 A.BNEXIST 

102 MSNExlST 
103 

IDA 
105 
106 

107 K'BNExIST 

108 VNEXlST 
109 

110 
111 
112 
113 
HA 
115 



22 2116 
22 2117 
22 2118 
22 2119 

22 212: 
22 2121 
22 2122 
SS 2123 
22 212* 
22 2125 
SS 2126 
22 2127 
SS 2128 
22 2129 
22 2U3 
22 2131 
22 Sll? 
IS 2133 
SS 213a 
22 2135 
22 2136 
22 2U7 
22 2138 
22 2139 
22 21a: 
22 21M 
Si 21»? 
22 21A3 
22 21»A 
SS 21a? 
22 21*6 
22 21*7 
22 21»S 
22 21A9 
22 2130 
22 2151 
22 215? 
SS 2153 
22 21%a 
SS 2155 
22 2156 
SI 2157 
22 215« 
22 2159 
22 2160 
22 2161 
22 2162 
22 2163 
22 216A 
22 2165 
22 2166 
22 2167 
22 2168 
22 2169 
22 2170 
22 2171 
22 21'2 
SS 2W3 
SS 217A 
22 2175 
22 2176 
22 2177 
22 217! 
22 2179 
22 21*0 
22 2181 
22 218? 
22 21«3 
22 21»A 
22 2185 
22 2186 
22 2187 
22 2188 
22 2199 
22 2190 
22 2191 
22 2192 
22 2193 
22 219* 
22 2195 
22 2196 
22 2197 
22 2198 
22 2199 
22 2200 
22 2201 
22 2202 
SS 2203 
22 220A 
22 2205 
22 2206 
22 2207 
22 2208 
22 2209 
22 2210 
22 2211 
22 2212 
22 2213 
22 221A 
22 2215 
22 2216 
22 2217 
22 2218 
22 2219 
22 2220 
22 2221 
22 2222 



169 





CATA/1 


3/6/0/0 116 






DATA/1 


2/I..3.0 11? 






DATA.l 


3/6/0<0 118 






DATA/1 


2.»O.0 119 






DATA/1 


3/6»0<0 120 






DATA/1 


7/12/5/0 121 






DATA.l 


1/2/0/0 122 






DATA/1 


2/»»0'G 123 






DAT-/1 


j.0»0.0 12* *-' p 


.EXIST 


:>I«S 


HES 


NORM 




Bfc.LT 


k;s 


^CR/4 




S-TA-iC 


RES 


»»(NCR/*1 




ifL 


RES 


»»(NC^/l>) 




Su-'*CtC 


RES 


\to/l> 






69bO 


b 




juMfr. 


DSECT 


■j 




JNTF 


RES 


5 




• 'w 


■MEM *F 


I .Tt^FAC a8DE PAI^S 




MNTFC 


DATA 


9/2/1/1/1 




vO^P 1 


DATA 


1/13/12/13/1* 




• KTrwFACL 


9Dt SO-bERS 




I\r\ 


DAT. 


73/ 59/ 60/ 61/ 87, 58.72/ 75, 9P 


/23<23. 133/10. S5 


|\TN2 


DAT* 


62,63/6»»65/90,91>7;«7l,?» 


.2H.95/ 17,6/58 


Ix, 


TERFalE 


LIMK \U~IBERS 




ul «"* 


DATA 


110/0/0/165. 111. 0»ll2«l66. 


113.167. U».16« 




DATA 


:/ 16*/ 157/ 0/122. 135/ 62/ 119. 


3/116/38/. 1 




DATA 


15. 17/ 169/170 




A.UT9F 


E^u 


AJV INm*1 




CIOE* 


EOJ 


CICtfvPM 




CICSF 


ECvi 


CICTStf «1 




C-'L*- 


E.o 


CICTF.l 




PStTCF 


EUU 


CPA9Q«1 




SPLCHi 


E^j 


SE~"1S**1 




T«A\,bF 


EUu 
EV^ 


STaro.i 





22 2223 
22 222* 
22 2225 
22 2226 
22 2227 
22 2228 
22 2229 
22 2230 
22 2231 
22 2232 
22 2233 
22 223" 
22 2235 
22 2236 
22 ?237 
22 2238 
22 2239 
22 22"0 
22 22»1 
22 22»2 
22 22*3 
22 22. » 
22 22»5 
22 22»6 
22 22*7 
22 22»8 
22 22»9 
22 2250 
22 2251 
22 2212 
22 2253 
22 2250 
22 2255 
22 22-16 
22 2257 
22 ?2?t 



170 



2.6.88 ROUTINE MACRO 



• "ACRB 56 1 

SUBRBul I <E '"uc^p 56 ? 

DINENS1BN LtV5SF(4)»LEV5S(i.] 56 3 

CBNMB'J />JL^/ LEV5SF, IRADHO 56 It 

CS^MSrl /-»8lUSB/ SUROM^tl.-lLDSPLen.-iLDBFFll,), [GATE", IGBTTM 56 c 

I^UbEl- SU«CB\,ML5S p L/HLD9^ 56 6 

I vrtOEf. Shulg,pv,ps 56 7 

DI"E««SIBM ISBIe.B) ,MDATA(2,S),"ICVCLE|«.),CYC(8.5>, I'.TFii), IVTRSU5I 56 1 

CS• 1 ^9^ /oL«/ ISB.MCVCLE.CVC. ISO(o) 56 9 

CBihBN/BLKZ/IMRS 56 13 

CBMM8N/BLK3/ Pv<262),PS(262> 56 11 

C91MBW/BLK1/ DATA! l»<t,8>»NL 56 1? 

CSMhB:. /3L.SLV5/ LE vL5A#SRT\5, EMD5./END51, IInCTs, m IN5F, 6pT I ME, 8PT IN 56 13 

nlEBER SRTN5,E>^D5,E:iDbl.9l»TlME.BPTI\ 56 1» 

CBMMBIM /BL«7G2/ LEV58Ct),CYCL9(8>,INF9l5l» > »SUB8, JREBPT 56 15 

CBMMBM /BL«89/ ITSAVE,h8lOF<CP<275>/CSI275> 56 16 

C AOOITIBNAL CASUS F8R INTERFACING 56 17 

CSMMOl/BLK^/nTfLii 56 1? 

LBjICAl STRM»>» ST«1, STR2, STR3, STR», T«INT 56 19 

CSM^B:; /BL<5/ IBRD, IxT, ITR0L*» JL I * I k > 56 23 

EQUIVALENCE (STKF(l), STR1), (STRF(^), STR2I, (ST*F[3)/ STR3], 56 21 

1 ISTRt (»), ST'Mtl 56 22 

DATA LEV59/*«0/ 56 23 

DATA NSUB8/0/ 56 2K 

DATA trCu8/8»0>/ 56 25 

DATA IkPM/5«C/ 56 26 

DATA P», PS/262*."', 262^0/ 56 27 

D»TA URS/o/i IC80NT/0//IPASS/0/ 56 28 

IFI IPASS.NE.3) G8 T8 200 56 29 

IRLBPT .0 56 30 

IF!END:>.NE.O] IPASS.l 56 31 

IVTFLG • 56 J? 

C 56 33 

lji C9NTIl\uE 56 3» 

CALL RTNS 56 35 

IFI lCBuNT.E'J.OI Li9 T3 200 56 36 

CALL SEGL9DI3) 56 37 

CALL PREDICT 56 39 

IFI IPASS.\E'.'I G9 T9 2UC bb 39 

IFIITRLLY .NE. 0IG9T9 556 56 10 

CALL FlBDECI 56 "1 

IFIK.E^iC) G9 T9 200 56 »P 

09 HO I.l,<t 56 »3 

uE«5S( | I . 56 »« 

110 CBNTInlE 56 »5 

u»0 56 "6 

09 100 I"l,» 5a *7 

STWFII) . LtV5SF(I) >NE. J 5b US 

|FILEV5SF(I) )5»100,5 56 "9 

5 CBNTMlE 56 50 

U • U ♦ 1 56 51 

i_EV5S<„> .1 56 5P 

|F(LEVjS( J).NE.LEV59( Jl I IRE9PT.1 56 ->3 

LEV59(.,)>l.E<'5S( J) 56 5» 

1UJ CSNTINuE 56 55 

iriLEVnilll'EQ'O) G9 TB 200 56 56 

IF{ IRALRD.EU-1) IRE9PT .1 56 57 

C 56 5» 

C *001TIB\iaL CAKDS FBR INTERFACE 56 59 



C 

C CMEL< FUN AOUACE^T SECT1B-.S REQJIRI-.3 I'.TERFACI.G 

TRINT • 3TR2 .BR. ST^3 

IF (TR1NT) I\TFLG ■ 1 

CALL SE3L9JI2) 

CALL RTSNCILEV5S, I I uji 

IFI IREOPT.EU.O) Be TS 200 

CALL SESL8-.I 1 ) 

CALL LSTSOSI I IUU) 

IT*DLY»1 





ADD1TI9. 


.AL CARD 


FB« 


I..TLRFALF 






CALL St 


■Gi_9aU(» 


1 








IFI INTl 


LG .^E. 


1 IGOTt) 50J 




CALL P'TFC 


IF IMTE- 


■FACT 


^G GR8UPS 


RLOO 




CALL I' 


.TFC 








buj 


CBNTIvk 


,E 










CALL TW\PAi 










TJ-IN 8' 


. TWa'Jgi: 


>TI9^ 


FLAGS 






CALL TkFlG 










IRALRD 


• 








SOD 


C9MTI -l L fc 










ICBUNT 


• 1 










RETuHN 










.6 


ITRULVi 


ij 










GS'B 2 


jj 










E\u 









bo 


ftO 


56 


61 


56 


62 


5b 


63 


56 


**lt 


56 


65 


56 


66 


56 


67 


b6 


6a 


56 


69 


56 


70 


bb 


71 


5b 


75 


b6 


'3 


56 


7<i 


bb 


75 


''b 


76 


bb 


77 


bb 


7S 


56 


79 


56 


HO 


bb 


"* 1 


bo 


"■2 


5b 


'3 


56 


■31. 


5b 


S5 


56 


96 



171 



2.6.89 SU BROU TIN E FMODE 



BadTl il: f"i3Jt 



Ff.906 
S.HR9UTISE F-^jflO 



CB'Wi /*L<lb/ CMSET 


, MBUFL 


, 


I3P| 


. -inumf < nS^Ch 


. MC22 


1 


MC.O? 


• \Cw<)2 , N1ANP 


, NKCTL 


1 


N^L^K 


• \"SCT , NMvEfl 


, ».PATB 


J 


»P8k 


• >WESP , NST11 


. TBSW 


J 


TBvTE 


• CS / OS 


. FS 


1 


MS 


. as « ks 


, SS 


f 


scs 


C9">W9N /OL^S/ »HCC(13S>. C 


>«AK17). 


C'TAB(25 


81/ 


• 3TTAB(25a> , CISI17) 


. D"ALF 


17) , 


oiaCE 


. FlT».j(890> » HSF 


, reoES 


, 


NAI 


• V9FAL. SBAKffcS). SECFCU), 


SCDFCU), 


V9L(13b) 


39 10 l.l»»"SCT 








C»LL 3fcTBY(U^80E. I, ICC) 








[F( ICD.NEi3l Ci* T9 10 








ae re 2; 








10 C8NTIS0E 








20 Ce^TlMut 








3E'U« J 








E\0 









58 




58 




58 




58 




58 




58 




58 




58 




58 




58 


10 


58 


11 


58 


1? 


58 


13 


58 


Id 


58 


15 


58 


16 


58 


17 


58 


16 


58 


19 


58 


20 


58 


21 


58 


22 


58 


23 



172 



2.6.90 SUBROUTINE OUTTBF 



• • BuTTl-F 

• Sj^RBUTINE T1 SuTPjJT GC-2 TAPf BUFFER 

DEF 9UTT3F 

REF "«r 

REF 9SETJP1 

SUTTsr BAL.6 9SETJP1 

GEI-..3.2. l.TdUFF 

ST., 15 PT'Pl 

_a>6 HHF 

BEZ RTN 

R3, J 

8CS.it RTN .EXIT IF SENSE S.ITC-I 2 SET 

• SET UP OUTPUT bUFFER ADDRESSING 

L»«l5 .TBUFF 

LI.l 1 

STri,15 TIrE5,l 

SAS.15 2 

ST«,15 wWITAP 

STB.l «HITAP 

L«,1J RECDInG "AS A RECBRD BEEN «RITTE«. 

BEZ CALTP 

Ll.U 

ST«,10 RECDING 

CALTP BAL.15 TSTAPE 

B RTN 

Ll»C DA(.RITAP) 

SI8.J X'El' 

MTw.l RECDING 

LI.2 

AI.2 1 

Cl<? ICO 

BG RTN 

TI9, 13 X'El' 

BCS.8 »-k 

LI.O DA(«RIE8F) 

SIB, J X'El' 

RTN RES 

B .PT-Pl 

B8u>\D 8 
TI-1E5 %EN,8»7.17 X'lO'.O.O 

BBo'3 8 

„R1TAP RES 1 

GEN, 16, 16 G.5536 

.RIEBF GEN, 3, 2k X'73',0 

DAT* 

WECOlNG DATA 

TSTAPE TIB, 13 X'El' 

6CR.12 TDVTP 

6CS,8 «*3 

LI. 7 5 

B »*3 

bCS»k »-2 

li. 7 a 

TPERR MI, 7 5 

AI,7 ERRMESS 

ST„,7 TYPE»UT»2 

CAl1.2 TVPEBLT 

B «15 

TCVTP REa 





MT„.l 


15 






B 


•IS 




PTMP1 


DATA 


C 




TBUFF 


RES 


1 




MUtlB 


DATA.i 


C.X'aO'.x , 60'.x'02' 


ERX"ESS 


TE»TC 


' sue TAPE 


1ANJAL 




TE*TC 


• VSB TAPE 


INT PEND 




TE.TC 


l VSB TAPE 


BUSY 




TEaTC 


' vse TAPE 


UNSU END 




TEaTC 


• VbB TAPE 


UATA BVR 




TE.TC 


• VSB TAPE 


NBT HECG 


TVEBlT 


DATA 


»'02j03000' 






DATA 


*'820C0000' 






DATA 


c 




'1ASK1 


DATA 

ENU 


x'kOCOOOOO' 





2* 


1 


2k 


? 


2» 


3 


2k 


k 


2" 


5 


24 


6 


2k 


7 


2k 


8 


2k 


9 


2» 


10 


2* 


11 


2» 


12 


2<t 


13 


2» 


Ik 


2* 


15 


?* 


16 


2k 


17 


2« 


1 A 


2k 


19 


Z« 


2: 


2i 


<M 


2. 


22 


2* 


23 


2k 


2» 


2- 


25 


2* 


26 


20 


27 


2* 


26 


2k 


29 


2» 


3: 


2* 


31 


2» 


32 


2» 


33 


2* 


3k 


2* 


3! 


2» 


36 


2* 


37 


2* 


3! 


2* 


39 


2<> 


<*c 


2» 


•1 


2« 


k? 


20 


"3 


2< 


kk 


2k 


»5 


2k 


"6 


2" 


k7 


2k 


»8 


in 


"9 


2* 


50 


24 


51 


2« 


52 


2* 


53 


20 


5» 


20 


55 


2» 


56 


2* 


57 


2* 


55 


2« 


59 



2* 


60 


2» 


61 


2» 


62 


24 


63 


2k 


6k 


2k 


65 


2* 


66 


2k 


67 


2k 


68 


?k 


69 


Sn 


70 


2k 


M 


2k 


72 


2k 


73 


2k 


7k 


2k 


75 



173 



2.6.91 ROUTINE RTN 5 



RSJTI ■<(.'■ 



CJfrilNTS RTA5 AND RTVFT 



D*LP<17> 


E9DC 


HBUfL 




ISPI 


NCW22 




MC»oa 


N-1CTL 




NMLN< 


NPATB 




\Pd« 


T3SU 




TBYTE 


F S 




NS 


SS 




scs 


69)/ - 


BF(17! 




Ra»iSP 


2SJ) 


RTC 



• *T\b C91BI\ES RTN5 ANJ PTNFT 

SJ6R3uTI'«F -<T'vb 

CB1«8w /RTT5/ TBurF(138»)iTBSIZE 
I^TEC'E- TBjFF.TRSIZE 
ce"f9 i /il^i/ -\, \DLNK(69>. TT3, 

• IT7 
C5 — 3'. /oL<l 1 / HSB15I32) , lG15(n») 

; ln-.di (6t),NB9L<69)»NB<cs»NBr«T(.»)< 

. T3SU 

CB^B'i /3L<13/ DWLI259) 
1 riAb, FTB..J. iBEir(69) 

C8"I-9N /yL<15/ CHSET 

• \C*RB , N1ANP 

• \1SCT , .\1,E0 
. \«ESP , NST>"1 

• cs j os 

• liS > rs 
C3^0'. /6L<19/ CC2U29)/ D 

. -I (31 ) » RA„8C<258> 

• TSTR.T1516) 

C°''MB-. /^L<l9P/ CC2P(129)#M* v9CP<255l,:-'A»SPP(?3«.l 
CS^MB J /dL<2»/ ArfIST(li8l» CvCISj BCF» 

• OSK , F1TBB , FSTfL » MLIBF 

• HUIDTI94) < NHDAY , PRC3B . PTM7»5I 

• SHTFL,S-iOIS,T"PS-l/ VMtSTl 1 Jil 

C9-M9, /JL<25/ AHCC<13<J)i C-'AL(17), C J TAF>(268>/ 

• 3'TAbi558) , BIS(1?) , B«ALF(!7) , B*BD£ 

• FlTAo(SOO) i hpf , WBOES . NA] 

• \BFAL, oBaK (6 3), SECFCI*)' SCBFC(t)i V8LI138) 

C9 V 'MB\ /m«.*lb/ LEVL5A»S.*:T\5.r:N'D5«EN051»"INCT5<' J !I\5F,9=T! 
I v'ERE>< SRTNj,EN05»E'.D51«9F>Tpit»'JPTI\ 
BATA TcSI2t/13Bi./ 
BATA LL l/Kvl/76736,»b/ 
CALL TtrBAYl TBjFF) 
ISTX.9 

B3 K l>3«THSUE 
.'■ T-JFF ( 1 ).Q 
I.Nh»E„+l 

- :b\ti\ u e 
►ai\ betectsr l"9p 

I3ET.C 

HL\C. 
IRLSP. 
HLN9. .. 
I3CCF. 
ISPEEB.: 

; C9NTI-..E 

IF I I. Li • :■) IB '9 1„C 
CALL HALF(B*L.I»L!NK) 
L INK • LINK ♦ 1 
CALL SLTJY(MDLN<»LIM<j:<00) 
CALL >t TJY(NBBL.LI\<»MI ) 
in -I .jT. ." ] o? T9 35 
1=1. .1 



\LY '4NE BETECTBR/ LI\K 



Cr' TI 

■ Si IV 

Nll.i 

L9 T.9 .1 
CS^TISl.E 

I'l-l 



C Tr-IS TAHLE IS I'<C3NSIoTrST „ITH T M E ASSF_"JLv LA\r,JA,jE 

C Yr-JSIB'. ;;F UC-l 



► 1 CALL -itTJI ( J. LP. I, ICBj.M 



C K->T Fr.-R Dj" 11 "* CETF.CT9R 

I r ( ICB.E..1 I 53 T9 bo 
C I\ SC-1 THIS IS A oYTE vARlAsLr -ITH VALUE 15 F8R DUn^IrS 



jJT PAlLtB DLTECT8R -3 1 T 
CALL GLTbl CU^ALF.I, IBFjQ) 
1F( IBF.NE.O) GS T9 60 
CALL jtf3Y(CC?P, 1, IRC) 
CALL h*LF(«a sSPP/I. IKS) 
CALL -imLF(-a„9CP* I. IRBI 
I9Ci< Il.9»8i/16 

clear cbi.me-, anj ra* accu-iulatbrs 

CALL P«BYTiLC2F, I»o) 
CALL Pk.h«(RA,sPP» I ' ) 
CALL Pnriw(^4*BCP/ I. CI 
IRLNCIRlNCMRL 
IRLSP.lRLSP+IRS 
IRLm8.IRlN3*I8C 
6B CBNTINuE 
\30.\0u-l 



59 

59 
59 
5=> 
59 
59 
5? 
59 
59 
59 
59 
59 
59 
59 
59 
59 



59 


?T 


59 


ai 


69 


<>p 


59 


53 


59 


2* 


59 


25 


59 


26 



5<J 
5 9 


3? 


59 


43 


59 


41. 


59 


35 


59 


■>6 


69 


37 


5^ 


J» 


59 


39 


69 


•*C 


59 


-1 


59 


it? 


69 


»3 


59 


<*A 


59 


»E 



59 


51 


59 


52 


59 


53 


59 


64 


59 


->5 


59 


66 


59 


57 


59 


6« 


59 


69 


59 


*>? 


59 


61 


59 


*.P 


59 


63 


59 


64 


59 


65 


59 


66 


59 


67 


59 


6? 


59 


69 


59 


7- 


59 


71 


69 


/? 


59 


73 


69 


7k 


59 


75 


59 


76 


59 


77 


59 


70 


59 


79 


59 


HC 


59 


■H 


59 


*? 


59 


"3 


59 


HA 


59 


15 


59 


96 


59 


97 


59 


86 


59 


89 


59 


9C 


59 


91 


59 


92 


59 


93 


59 


9* 


S9 


96 


59 


96 


59 


97 


59 


90, 


59 


99 



174 



IF.(MDD.CiT.C ) G9 
FS.<Fe«<- RTNFT c* 
CALL ..t.TBV[UFAI 
)F( If AIL'E-,*') 
CALL haLF(v«IST 

CALL HaLFiahisT 
I3CC-If-9ol^C/32 
IS U «( I v9L«32766 
C9 T8 oJ 
70 C8MTINLE 

I^9L»( 1«LNC«9PT 

is p .( mLSP»^vi i 

IS».ISp.LLl/655 

IS". U. ISP/** J 
I9CC.IhLM9#S/<9 
S'J CSMI'Mi.E 

CALL P».H*{TBOFf 
CALL Pi^MMTBuFF 
C»LL Ph-mitbuff 
CALL PkHi.(TBJF>" 
C»LL_fV<« ( T BJFT 
CALL P«.rl*(TBJFf 

ISTx.ISTx»10 
o9 T9 C J 



T9 10 
LCULATIONS 
L<LI"»<. 1FAIL) 
G8 T9 70 
»LINK, IhST) 

iLISK( I-ifJ) 

76K 

)/( I«9.180) 



I n )/».n 

/IRL^C 

36 

PT1ME..90) 

. ISTX,LI*<> 
,ISTX+1jIF>IL) 
. IS^x*?, IVBL) 
, ISTX*3, ISP) 
, ISTX+A, I9CU 



ISTX«5«I0F| 



n', ; 



S^TIS,. 

ALL 9^TTBF<TBk. 
;TuP\ 

mj 



59 


mo 


59 


101 


59 


10? 


59 


103 


59 


1014 


59 


105 


59 


106 


59 


107 


59 


106 


59 


109 


59 


110 


59 


111 


59 


112 


59 


113 


59 


11» 


5J 


115 


59 


116 


59 


117 


59 


118 


59 


119 


59 


120 


59 


131 


si 


15? 


59 


123 


59 


12» 


59 


125 


53 


126 


59 


127 


59 


1?» 



175 



RBUT1 -i- 



2.6.92 SUBROUTINE TRFLG 



sj-'RSjti.'.e T-iF,.3 

INTB'Jtx T»A'<SF 

t3JlV*LE -Ct I T^A\br,STBV5(?| ) 

. ClivT j(65) « C J^iT'F ( Jl ) 

• EN8FFI 31) , :,r>.iT( l^l) 

• oLAHCc ', S»l , o'Jj'jI ! ?») 
. SSSSl ;?<) , T< CI ) 

THfLo INTERLEAVES Th£ T<5>L 



CTflaF(r) 
CYClC(31 I 
3»»TPm ] 
GuAoCi 1?» ) 
• *«F<31 I 
A\a STBVC A9HAYS «IT 



STcY^IS) 
E\I\T(»96I 
jJ.TPIjl I 
ISTIjd.961 



9\ES 



6553d DECI-'Au • 16 9AES oKaWY 
0* T A L9C/65535/ 

ST3KL 32 '^E5 IN »09CS 1.3,5.7 8F THE TOANSITIBV F L a5 »B«»Y. 
STSBE JZ ».FS IS »t}»QS ?,»,6,8 9F The STbvD ARhAY 
OS 10 1.1.7.2 

CALL PTHLFlT^A^SF.c'l.l/LSC) 
CALL OTHLF(T^A'.SF,i»l,i.BC) 
CS^TI .uL 
RET US". 
(NO 



61 
61 


1 
? 


61 


3 


61 


» 


61 


5 


61 


6 


61 


7 


61 


5 


61 


9 


61 


1? 


61 


11 


61 


12 


61 


13 


61 


1* 


61 


15 


61 


16 


61 


17 


61 


1« 


61 


19 


61 


i" 



176 



2.6.93 ROUTINE PREDICT 



rbutine: predict 



C • PREDICT 

SJBR8UTINE PREDICT 

CS^MBN /dL<19/ CC2I129). 0f*!L169l» BeF(J7)» 

• ""I (31 1 i RA.8CI253) , RA«SP(?58) > RTC 

• TSTRT1516I 

C81M8N /BLK2"./ »HIST(1J8)( CnDIS, DCF, 

• 01* , FMT8D < FSTFL # HLIDF 

• HLIDT196) » NHDAY , PRCBd # PTM7»5I 

• ShTFl, SRDIS, ThRSH, YHJSTI13S) 
C91MBN /RTTb/ TBUFF(138»)»TBSUt 
INTEGER TBUFF/TBSIZE 

INTEGER HLIUF 

IMEGER H8LL>F,jB(7l*TIME»0Uf",0»T» 
JI""ENSIBM TIMM(J) 
INTEGER Til" 

C81M8N/BLK3/PVI262)»PS(262) 
CBlf3N/BLK»/OAT»(l»»,8),ML 
CfliMBN /BIKb/ 1PRD, I«T, ITRDLY, JlI"(»> 
C9iMB.Ni/9LK89/ ITSA^E,HBLDF,CP(275I,CS(275) 
IMTEGES Pv.PS 

DI1E.NSI8' R"I(2),STAT|9>2«50>,L8AD(35| 
EflUIVALtNCE (STAT, DATA) 
ESUIVAlENCE (KK, JB(2) )» (LL» J9(b) ) 
DATA NSTAT/50/ 
DATA N..STAT/9C0/ 
DATA NOATA/B/ 
DATA N-DATA/llb2/ 
DATA LbAD/35.0/ 
C 

IP«D • 
NN ■ u 

call buffer iniis, i»cp<5so/ i i,nni 

DECBDElb, luC3»TBUFF) |HR f MJN 
1005 FBWMAf (12. IX, 12) 

KIN • UJ • IHR . 1JN 
TIiE • fMtN/Sl • 8* 
IFITIrtL.LT.l ) TI1£ • TIME ♦ 3>,i 
IF(TIM t .\E'!TSAvE) GB TB 35 

C UPDATE PREDICTIBn STATISTICS 

C 

NN ■ 

IT • ITSAVE ♦ 1 

UNIT ■ 12 

IP iNSTAT 

08 30 I«1,\L 

IP • IP ♦ 1 

IF( IP.lE.NSTAT) G8 TB 22 

IF(l.EL'l) "»» T9 16 

CALL Bt-FFER BUT( IU\ I T, 1 , STAT, N-STAT, II, SM 

IJMIT . IUMT ♦ 1 
16 CBNTINuE 

CALL BUFFER INI IU-I1T,), STAT, v*STAT,M,rj\| 

19 IF( I I.nE-2) G8 TB 19 

IP • 1 
C 

C BYPASS IF LINK HAS FAILED 

C • 

22 CALL GETBY(OFAIL.I,IDFAlL) 

IF( IDFAlL.tJ.l I G8 TB 30 

IF( IT.bT.Ub) liB TB 30 

CALL L0M8E5<IaKK»LL»DUM) 

IF(KK.EU-O) KK«1 

IF(LL.ta.O) LL ■ 1 

RRI 1 ) • JB(2> - PV( I ) 

RR12I • JBlb) - PS I I ) 

DB Bt j • 1»2 

STATU, J, IP) • STATI1,J,IP)»1.0 

STAT(2,J,IPI . STAT(2,J,IPI ,RR(J) 

STATu, J, IP) . STATI3, J, IP)+RR(J)««2 
21 CBNTIiMuE 

RRU I • RR(1 ) / JB(2) 

RRI 2) . RR(2) / JBlb) 

DS 26 J ■ 1»? 

STATU, J, IP) • STATU, J, IP) ♦ KR(J) 

STAT(5,J,IP) • STAT(5,J,IP) ♦ »P(J)«»? 

RRIJ) • AHS(RPIJ)) 

STAT| ,J,IP) . STAT(6,J»IPI » »P(J) 

IFIPRI j).GT..0b) STAT(7,J,IP| • STAT(7,J#IP) ♦ 1.0 

IF(RR(j)«GT*»10) STAT(8,J,IP| • STAT|«,J,IP) * 1.0 

IFIRRl J1.GT..23I STAT(9,J,IP| • STAT(9«J,IP) • 1.0 
26 CBNTInuE 
30 CBNTInuE 

call Buffer buti iunit,i,stat,nkstat, ii,nni 

G8 T8 tb 



3b CBNTInuE 

IT • TI1£ * 1 
C 

C CHECK FBR npLIDAY BR TIMf BUT BF B9UNDS 

C 

»b CBMTINuE 

M «6 1 i 1#NL 
PV( I ) • 
PS( I) . 
*6 CBNTINUE 

HSLDF.hLIDF 
IF(H9LLF.E'J.O) GB TB 56 



15 


1 


15 


? 


15 


3 


15 





15 


5 


15 


6 


15 


7 


15 


» 


15 


9 


15 


ID 


15 


11 


15 


12 


15 


13 


15 


1» 


15 


15 


15 


16 


15 


17 


15 


18 


15 


19 


15 


2? 


15 


21 


15 


22 


15 


23 


15 


2k 


15 


25 


15 


26 


15 


?7 


lb 


28 


15 


29 


15 


sr. 


15 


31 


15 


3? 


lb 


17 


15 


3» 


lb 


3« 


15 


36 


15 


J 7 


15 


*? 


15 


3" 


15 


**D 


15 


"1 


15 


»? 


li. 


»3 


15 


tfc 


15 


*5 


15 


"t 


15 


1.7 


IS 


«a 


15 


«Q 


15 


5r 


15 


ol 


15 


b? 


15 


53 


15 


b* 


15 


b5 


15 


56 


15 


57 


15 


5« 


15 


59 


15 


»'5 


15 


M 


15 


*2 


lb 


63 


15 


6* 


15 


65 


15 


66 


15 


67 


15 


68 


15 


69 


15 


73 


15 


71 


15 


72 


15 


73 


15 


7(. 


15 


75 


15 


76 


15 


n 


lb 


78 


15 


79 


15 


81 


15 


"1 


15 


8? 


15 


"3 


15 


8» 


15 


"5 


15 


86 


IS 


S7 


15 


88 


15 


89 


15 


90 


15 


91 


15 


92 


15 


93 


15 


91. 


15 


95 


15 


96 


15 


97 


15 


98 


15 


99 



177 



c 

C STBRE BASELINE PWEDICT1BN 
C 

»8 09 52 I.l.ML 

CALL L0'18E5< l.KK»LL»DU«> 
PV(I) • JB<2) 
PS I I I • JB(b> 
52 C9NTlNuE 
G8 TB r,b 
56 IF( ITtGT.l**) GB TB t8 

C PRtDICT F6R NEXT 15-MHUTES 

C 

1PWD • 1 

UN • C 

IP • SiDATA 

LB • 1 

08 80 I»lfNL 

IP . IP * 1 

IP! IP.lE.NQATA) SB TB 58 

CALL BUFFER IN(<1»1»0aTA,N»0aTA,II,Nm 

UN ■ My + 13 

IP » 1 
C 
C GET FBuRlE* PREOICTISN 

58 C5-.TP.uE 
l. • J 

jj ■ J/.TAMT.IP) 
C»LL HALF( JJ«2»l I 
1FIL-E..OI GB T9 6.. 
bP ■ L 

CALL -i~LF(jJ»l<L) 
IF(L«E»0) S9 T>? 6. 
VP • L 

C STCRE BASELINE IF NB FBUoJER PREC1CATI9N 

C 

IFII.-iE.LBAJILD) ) GB TB 59 

i_B ■ Lo*l 
so C9NTIN,.E 

CALL L^ruESI 1»KK,LL»DU1> 

vP • Jd(2) 

3° • Jb(b) 

G3 TB b8 
iH C9UTI\ U E 
C 

C farPASS C8RKECTI9N IF LIN< "AS FAILED 

C 

CALL GEToYCDFAlLi t< I0FAILI 

IF( IOF^lL.tU.1 ) G9 TB 68 

IF( IT.ECJ.l) GB TB 61 

IF( ITSAJE.--lE.IT.il GB TB 61 

CALL LL.1BE6I I.KK,LL<DU") 

JJ . 0aTA(IT-1* IP) 

CALL HALF(JJ.2,L) 

SSS . u 

CALL «ALF(JJ,1.L) 

RRR • l 

R ■ J8<2) - *RR 

T ■ R - CP( I ) 

CP(I) • .9. CPU) ♦ .l.R 

S • J3cb) - SSS 

J • S • CS( I ) 

;SU) ■ .9«CS(I) ♦ »|»S 
61 VP'VP+C'PI!) 

SP"SP»CS( I ) 

IF( 1 T . L Q. l ) GB TB 68 

JF( ns««/E.Nt.IT.l ) GB TB 6b 

»p»vP«.2«T 

SP«SP».5«U 
68 Pv(I) • vP 

PS1 I ) • SP 
SO CBNTHiuE 
85 CS''TI>;oE 

C9 90 I«1»nL 

IF(PV( I l.NEO) Gd TB 90 

CALL LC19E5! I»K«/LL»DU") 

PV! I) • JB(2) 

PSI I I . JB(5) 
90 CBMTlNuF 

ITSAVE ■ IT 

NN • ^ 

CALL BUFFER 9uT( 18/1.CP»55:« II'NU) 

95 CBNTINuE 
RETURj 
ENJ 



15 


100 


15 


101 


15 


102 


15 


103 


15 


10* 


15 


105 


15 


106 


15 


107 


15 


118 


15 


109 


15 


110 


15 


111 


15 


112 


15 


113 


15 


lit 


15 


115 


15 


116 


15 


117 


15 


118 


15 


119 


15 


120 


15 


121 


IS 


T5? 


15 


123 


15 


12k 


15 


125 


15 


126 


15 


127 


15 


128 


15' 


129 


15 


130 


15 


131 


15 


11? 


15 


H3 


15 


131 


13 


135 


15 


136 


15 


137 


IS 


138 


15 


139 


15 


1»0 


15 


1M 


15 


1»? 


15 


1*3 


15 


1»» 


15 


1»5 


15 


1*6 


15 


1«7 


15 


lk« 


15 


1»9 


15 


150 


15 


151 


15 


15? 


15 


153 


15 


15k 


15 


155 


lb 


156 


15 


157 


15 


158 


15 


15? 


15 


160 


lb 


1*1 


15. 


162 


15 


163 


15 


16k 


15 


165 


15 


166 


15 


167 


15 


16A 


15 


16° 


15 


170 


15 


171 


15 


17? 


15 


173 


15 


17k 


15 


1/5 


15 


176 


lb 


177 


15 


178 


15 


179 


15 


1"0 


15 


HI 


15 


152 


lb 


183 


15 


18k 


15 


185 


15 


186 



178 



2.6.94 SUBROUTIN E LDMOE5 



• LD~lBt* 

SjBR8uTI\E LOM»FS(LM<« 1VBL, 1V> I«CC) 

CULMS'. /*TTS/ TBUFI- (13S»1»THSUE 

I^TEGE« T6UFF, BSIZt 

CB">MBm /dL<5/ iPPO, I*T» I!'"" *» JLI^Itl 

iJJIVAlENCE ( JLI*( 1 ). ISLL), I " I 2 I, I SUL I , (JLI M ( 3 ) , I VLL I 

1 ( JLln<»)»IVUL) 

If(l_'»K.NE.2 , >S) Q8 T« , 
b CBMIk,E 

IV3L"2o 

ISP-35 

I9CC.» 

SETIWm 
10 CfWrsiuE ™ 

ISI.3 

mB*.(ToSIZE-*>/5 

DiJ 20 I«1»^SK 

CALL HALf (TBUFF, IST,LP'«) 

IFILI^KtEU.LNK) liB TB '0 

1ST .IST+10 
20 CB^TIM^E 

t,? TB h 
30 CBMImlE 

CALL HALF(TBvjFF,lST«l» IFAL) 

1F( IFAl-NE.O) jB Td 5 

CALL HALF(T»'JFf , ISTti, IvBL) 

CALL haLF( TBUFF, 1ST»3, ISP) 

CALL MALFITBJFF, 1ST**, 1BCC) 



IF( 


IVBL 


iLTi 


' IVLL 


) IVBL ■ 


' IVLI 


IF( 1VB^. 


ST.IVUL) I' 


/Bl.IVOL 




IF( 


ISP 


>LT. 


ISLL 


1 ISP • 


ISLL 


Ifl 


ISP 


.6T. 


ISUL 


1 ISP ■ 


ISUL 


RETU»\ 










EMJ 













60 


? 


60 


3 


60 


<. 


60 


5 


60 


6 


60 


7 


60 


a 


60 


<? 


60 


10 


60 


11 


60 


1? 


6j 


13 


60 


1» 


60 


15 


60 


16 


60 


17 


60 


15 


60 


It 


6a 


23 


60 


21 


60 


22 


60 


23 


60 


2» 


60 


25 


60 


26 


60 


27 


60 


28 


60 


29 


60 


30 


60 


31 


60 


32 


60 


33 


60 


3« 



179 



2.6.95 ROUTINE RTSND 



C AVE 

C STB 






' S^ET/B^K DFTEPMIN-ATI9M RM'JTINE 
SJSRSuTr-.E WTS'-D(LEVSS.NSUB) 

C9-" "):./«T\D-P/I3fP|12] 
C8-MB:. /bL</ IS>5(8.S>/\CCi.E,CTC» IS9|8) 
£e - 'M9\/8|.K3/P vv ( 26<> I . PS( 2tc ) 
CS^MSN /8l«.1FC/ ISTF,I2U1 M T<5»> 
C9">rB'. /OL'vS/ IBRD, I«r, lT^ L r, j L ] »• , « , 

C8->K9n /32C0ST/ «'*.«.8FS(12»]. ! 3 ( ia* ) # !E»(31 >«EnTCTC(31 I . SPL ! ' ( 12» I . 
1 C3RP-,(31) 
CS^MBN /BLK70a/LEV58(»),CVCL')Ii)#IVTFe(5l»' , 'SU9B, |l»E9PT 
CS -, ^8\/SECTlM/ ISECTlRI 

Ce-"-B'. /ne L US8/ SjRC\(12l.)»..L0SPL(<.|.-L3!FF («l, IGATE"-. I jRTr- 
lN'EoE- SUSL"\,k. L 3:,OL»'<LD9FF 
A3JIT13"^AL C.ABJS F9R IMEBF »C!'-(J 
3I1ESSI9\ «V(?t?| 
3I1ENSI9. I"<TF(5! 

Integer Pv.fS 

IV'E&E" PVv 

I^TEJEK SP|_IT 

DI^EMSIC'i ]SCT(12*> 

SINENSIS'. IUH U P( j.l,), IT<T,(o),JB(7) 

onE^sis'- >t.vctn8i«cvc(8»si 

;I-'I^SI3'; C»"AM»). uEv5S(*J, .""Still, C»CLI8I 

JPt^sir, i.iv<i«,i 
3iiENsie-i nTKs ( i,5, 

E3JIVA L E ,CE (L''Kl»LlNK(i))»(LN<2»LIN«(2)).(L , .<J».I .<f)ll 
ES-HVAlENCE (L'-«»»uI , >»(») )< (LS<5«LINilf5) )i (L .<o,Ll .<IH 1 
EJJIvi l ejCE ( «pw»sa»vphse ( 1 1 )# (vP».*St-»vP»stl2) )» (VP~asC# v w -eE (3) ) 
SATA Tel /20./ 
OaTa »;r-AX/»S/ 

3ATA NSEC /»/ 

2ATA N U 9»S /»,/ 

DATA < u /.OJ/ 
^»'j£ S»,_1T C~AV.F TmUESmBlC 

3aTa SCTBL/O.PTv 
*E CuSKtM b'Ll'i 

39 IS&'j I • 1/ 12» 

1SCTI I l • S"LIT(I ) 

C9NTIVE 

A'JOJTItNAL OAH'-S FBK INTERFAd'O 
SET I .TEWF*C.E '•LAGS 
3B 7b 1.1.6 
I\TF( I |«0 

estiva 

09 10O I • 1» 8 

istcTi ii.: 

C9\TI'.i.E 

CB^S.2. I/S'.j", . 
39 » 1.1*5 
DB » Ma 1.8 

CVCIM., 1.0 

DO 3 .-.1.8 

ncclei "U«c 

39 3 N.1.8 

JSB|\,r 1.0 

IG^PC.Il.O 

C8NTI\ut 

»?BP CB^E A^O BUFFER GR9JPS 

S01LO SCRATCH UR8UPISGS 

L.O 

KaO 

M.1+1 

IF(h.3E.(MSEC*l) IG3 TB 506 

<.l 

1_.L*1 

IF(LEviS(M-EOill GB TB 501 

IFILEViSIM.EC'2) GB TB 502 

IF(LEvbS(Hi.EQ.3l GB TB 503 

IF(LEv5S(M)-EQ.») ot> T9 50» 

09 TB 506 

C9MTI\oE 

IF(M.LT.f«SEt.A\B.LEV5S(1«l)«EG.2) GB T* 5n5 

ISECTl Jl.l 



IG^UPU.U.J 

IF(LEVbS(2).EQ.31 

G9 TB 500 

ia>*UP(».L).l 

I(i1UP(K*l#L)i2 

IG«UPI«*2/LI.3 

IStCTl 1 1-1 

ISECT(?).l 

ISECTl j).l 

I<1TF(*1«1 

INTFOIal 

IF(LEv5S(3)'EQ'3) 

U8 TB suO 

IG»UP(k»L)«J 

IS>*UP(K+1.L).2 

ISECTll ).l 

1SECT(2).1 

INTFUI.l 



56 TB 507 



5 
6 
7 
S 

9 

11 

1? 
13 
1* 
!5 
16 
17 
1! 



?3 



35 

36 
37 
31 

39 

• 

• 1 
»2 



7« 
79 



88 

H9 

90 
91 

9? 
93 
9» 
95 
96 
97 



180 



1 99 


1 1 00 




1 1 o 1 
1 10? 


1 103 


1 10A 


1 105 


1 106 


1 1-7 


1 10- 


1 1-9 


1 110 


1 HI 


1 11? 


1 113 


1 11* 


1 115 


1 116 


1 117 


1 11! 


1 119 


1 1?0 


1 121 


1 1?? 


1 1?3 


1 12* 


1 1»- 


1 126 


1 1?7 


1 l-« 


1 129 


1 13" 


1 131 

1 1« 


1 1 13 


1 13k 


1 135 


1 136 


1 137 


1 13 8 


1 130 


i i»: 


1 1-1 


1 1»? 


i : «3 



G9 T8 500 

sjj igkupia.d. 1 * 

IGK_P(<41#L>«5 
ISTF(1)«1 
ISECT(,)»1 
ISECT(fi).l 

G9 TB 5__ 

IStCT<6)«l 

bob ceSTISot 

39 b-3 1.1»3 

IF(LEvbS(M)'E-.n) C.8 T8 508 
_«LEV5_(1> 

\\«M-M 

D8 507 \'»N\j« 

IF(LEV5S(N)-Eat3) ae tb 507 

-■LEV5SIS) 

ir(J'E»'l'*N0t<.£Q.2) INTFOl.t 

IF<J.__.1.a'iD,k,EQ.3) IMTF(B|.l 

IFIJ.Ei-.J.ANa.K.EQt*) INTF(5).1 
b_7 CBMlNuE 
bOli C9STI\-uE 
c ... _; E n_ "aXIM." 1 CTCLE LESliTH fBw EACH ChRF GP8UP 

_e 1 '..1.8 

Cr'AXI .1.0 

1 |t<y.i .iM.. 

ICB.ST. i 

OB lv? ' • 1. s_»pS 

3! 1.'? . • 1, mGKCS 

I- ' I>_ u ( »i«| .El. ;) 5B T8 . v _ 

_ET S_' 3E5 BF ISTE«S_CTI«NS IS C9HE 

IC.L-ST . IC'jU ♦ 1 

1 3- • I i*c| •.,-) 

C--L !-'.( IjP. r:TU S , |t, ) 

I T <- 1 I IC9.ST) . |1«* 
'. -tH*' r-TE^SECTI-r-s I' C^E CiKlwP 

39 100 INT • 1, S«A* 
V -£T 3aCk0991-vC IMTEWSECTHS su^SE" 9F TmIS 1st IS 3S9.P 

ISS- • lNT"b( I <T) 

!F( IS- .E-- j) -B TB ICC 

CALL L=~ASv( ISs, lI<*. <3P», !3»a, ! 0=>C, I j«fcC» I j»~ I s, liB-IS. 
1 --•*IM 

CAUL 5 SCV L ( ISS. IS. -A, ISo-3. IS.-C. IS.'-T, ICVCEl 
jE' Sj-.=!B_-..I\j P=iB!CT93 _Is« \j~t)E" F_« ___-, 
- ISTfc^SECTI 3" P-ASE 

Sj"t . F.9«T( is^iti/p.o ] .„_ 

09 51; IL, ■ 1, 6 1 :-■- 

1="! lI.<|Iw''1 .pla. _l Ci9 TB tIC 1 ;-. 

IL ■ -1S<(ILS) 1 >7 

C«-L L.^BEil IL, I.Bl. ISP-.E-, IBCC) ; ;.« 

»U|J • Iv__ j j.o 

i'i 1=-: .lj. i) ■-»<!-> • p.viili : i_- 

blO CS-.TI-._E . .,. 

.5J- • j.c I ;-'■> 

T.SSS. ..0 . ;-, 

! r i l..i .--._• 1 ,p-aja . p, ( l -< 1 1 ■ •-,. 

I r l L'»2 ..t. .» -. P»(L •«.?) .JT. „B~ASA] v^-aSa • ~ 1 .•'!) ; ;•■'■ 

I c <i.S*_ "Sf. :l .P.-A^r • 5(| _.<J> [ ;:.,. 

1FI L\«» a-._a . .A.O. Pv( ;v..l .jT. v r-»s-| >P-».,- , r.i ,_ , | • •-,-> 

I^l _..'j ..t. I ,P-AbC • Pv( w-<?) 1 --k 

v» . <p-»Sa [,a 

;r( «3r- .F-. 21 ,« • A-AA1|«A, ;o.^;i j 

v j • ,, -<S-, . .,.'. 

IK «.j-- . t .. .,] ,•_■ . ArAAKv-ij v = -«?tl J [li 

•=-■- •--♦.•• ■•!'•) 

i- 1 « lL - .Lt. ..-.),» Tj 1. ■■"<■■. 

T t -lS3 a ,t. ! ♦ 1 y , ; i,.^ 

]fl <3 t.. , t .. ;, T^'-jc . T_9_q a 5.; ! ! ,. 7 

> ■ »sv. • • ess : " kl 

I 1 '! V .■:!. ;,«i| Y , •■*(. ! !'.= 

L»:.|_E a Il.b.T u »SS«b.)/( l.-v| .' •'/- 

C y CLE a ..-= a CTCtL . • 7. 

ICSAvt «C»CLt • .i 

I r l L»_Lt .Lf. ;t< i.cci Mi c»'.Lr.!'<-;M tc-.sr 1 . . • |7-. 

'.: [•< c»:l-. .>t. <?o.i cvcls. • ;?:■ ; :•. 

I"-(L»CLt .LE. :«'«M IL*- AT)] _'• T3 ]■ . ; .i 

C'A.| IC".M| a OyClF ' • II 

U'P( : I •ICSAv. . ;,, 

I 3 - 1- < ? i.CvCL! • • it 

:'■•' 1 mis/ I ;.. 

;."f(,|iv1.,l',i ! ;.- 

lO-'Pl-ia/P-ASi " : .. 

: jipiM.vP-.A-__ : -.: 

i T-pc . .<,-,_.. ; . ,j 

iD^PI .).S_"T * :■• 

IJ V 'P( 3).TL3SS 1 :<5 

lJiPIl ) • I T <— I .( IC'JL-.') 1 :'•■ 

I'jipii I lis-' : 1 -7 

ioipiw i.y-l ;.. : i" 

10J C9STI ...E . 1" 

Ud C.--T1 .i.e : ■• •: 

1 Jl CBS'TI%_E I '• '! 

\sji-.i 1 : ,; 

< . -. ■ ' * 

i-._ 1 : '- 

OB 20 ' l.1.v,ops 1 '.-<- 

b,£ <.<*1 1 1 '7 

i-.I-l: 1 1 ■'■ 

-.-,_! 1 H = 

IF(«. jT,SS_H5) :'. T. ?..; 1 20C 

IF( ia*_P(r,L) ._ :.- ] jB TB 201 1 2J1 

IF( Ib._P(h_l<L) •■- ".•-•) :W Tf i.c 1 2:;? 

;•*• TEST CITE-^IA h*-i CBMhlsa CB-c/BjFFcs jnBL't'S 1 ^"3 

IFlAt3SlCTr-AX(K).C A<(<«1 ) I.-.T.T9L) G» T B 16. 1 2"A 



181 



2JJ 

2vJ 



ISBI I'jSSUnlilAPl-iLl 

IF|CY-I»<1«).3T.CY1AX(K*1)) (-Y"»X{<»1 I. I". «•»«(<) 

fCLI .out)! .LY-.x [<»1 I 

;,9 TS ->yi 

CYLL('.SJB).CYm;. X (k I 

<EE p «tCl«J If NiJIuER 9F tt-v^FEHS A\3 C'RLS I- S'JKNfT 

IS*-( 1", '.SU=>)«I'>RUP("!»Ll 

.SJB«'.bJo-.t 

!•:.„ 

IFI IG-<^ (H + 1.L> .NE.i I .19 T9 ,.J2 

C8NTIM,E 
CSNTINlE 
>iSUb»N3Urt-l 

ADJITIfc'-AL CARl-S F9R INTEPhArPIG 



1 N. TRAFFIC RfSPSNSIVE, TURN 
HAVE COMBINED 

C9RE 3^9gPS 1 ANJ 2 COMBINE 

IF( ISti(2,l I'EC?) I^TF (4 ) «3 

C9*E Grv9UPS 2 ANO J C9~HINt 

IFI ISBl3,l 1-E0-3) INTF<3>»;" 

IFI IS8[2,2).EQ.3) 1MFI31-2 

C9*E GkBUPS <t AND 5 CS"B]NE 

IF( ISB|2»2>.EQ.5> INTFIll.O 

1F( ISB(2<3> .EQ.S) INTFI11.3 

IFI IS9(2.*)«Ef).S) IMFIlliJ 
IF( INTM1) .NE.C) I.TF(2).0 
CS^TI'ifE 



BFF INTERFACE FLAGS IF C9RE 3RBt.:PS 



FOR LSTSQS PACKAGE 



Nf>* CBNPILE CYCLE LENGTH «ANGE *ND 
D9 301 I-l.NSUH 
. FIRST SET UP SIGNAL CYCLE SELECTION TABLES 
jC'CLiCYCLI I ) 
iC'CL'jCYCL 

IF(MCYLL.GT.IOO) ICTCL'^CYCL.100 
KCYCL«MCYCL/10»ia 
«.CyCl.i'CYCl-<CyCl 

ICYCLE.'O 

IFI KCYL L.GT.2) KYCLE.S 

;F(KCYCL.GT.7) IC'VCLE'IC 

CYC(I.i) .jtYCL.lCYCLE-KCYCL 

nCyclEi I)»l 
i CSvri:.jr 

IFINSjr.B.NE.NSJ?! IRE9FT • 1 

\SJB3 . .Sj" 

39 tfr i 1 • 1 , NSUB 

CYCLE . CYC( '• II 

C5NS1 . Cfl .S . CVC.E 

1.9 «6 I • 1, NGRPS 

I j» • IS6( N, -I 

I r ( IGP .E .• 0) GO T9 k63 

CALL IRTN< I3P» INTRS, ITK~] 

I INITIALIZE SPLIT CHANGE CS-lPuTATIBN 

SCTBT • 0.? 

SCCNT . 00 

39 »5c INT • 1, N.-Ax 

ISN • INTRSI I'T) 

IF( ISN .E-> 0) 30 TO *50 

CALL LPHASvM ISN, LINK, K3PH, [GAB, 1GBC, I3ASC 
1 I^CMIM 

3A->IN . IGa^IN 

GA-MN . 3A-IIN/2. 

GJ-'IN . IGc-IN 

GUI IN . UM:-iI\/2. 

3C">IN . IGC"IN 

iCh ■ 3CUN/2. 

CALL S.-SCV L I Ion, ISj^A, ISu"B« ISjIC, ISu^T, ICYC 

Su^T • ISlMT 

SJ^T • SU^T/2. 

GABC • CYCLE • So"T 

CBmi-uTE GREEN 0E1ANL) 

59 til ILN • 1, 6 

IF( LIN<(IlN) .E». C) GS TB 1,10 

IL ■ LINK( I|_N) 

CALL L^IBEbl IL, Iv8L, ISPEE3, IBCC) 

Pvl ILM • IV9L 

IFI IP-,'3 .EU. 1) Pv(lLN) • ovvl ILI 

Pvl ILM ■ 'VI ILNl ♦ |,T • I9CC 
-• CONTINUE 

IFI L'-Nl 



IGAmJn, IGB-IN, 



VEi J 1 JP-1A5A • P,| L'-Kl) 

1H LNKg .NE. J 1**0. PV(LNKS) .GT. 1 
IFI LN«3 -NE, 0) VPHASM ■ PV( LNK3) 
IFI l % Ik» -iti J .AND. PVIL>*») 'ST. 
IF( LN^B ,.\t. „l VPMASC • PY( LNK5) 
G3A . V PHASA • CBNbl 



.phASBI vPhaSc • PV( L"> 



GJC 
IFI 
IFI 



• ,PHA3B • CON31 
. v»HAbt • CSN31 
Gj»+,Di.'*GDC >LE- 



0-0) GS TB »50 
»16, M 



K3PH .NE. -j) GB T9 (»1B, 

CB-iPUTE A PHASE SPLIT 
GA ■ (o3A/( GOAtGD'jl) • GABC 
IF! o« >LT. GA"IN] GA • GA^js 
IFI GA.jC-GA .lT. lfa«IN) GA , oABC • Sri- 
3PLITA . Ga / oAdC 
ISPLT . SPLlTA . 1G0C. ♦ 5 
ISPLT2 • 
G9 TB ,1S 
C9NTI ioE 

C8 IPJTE A AN3 C PHASf SPLITS 
GA • ( 3'JA/I G'JA*G^b + GJC] ) • GABC 
GC . I G„C/I GOA-fGCB + GJC) ) • GABC 
IFI oA .LT. GA1I .) GA • GAi-IN 
IFI GC >LT. GCMN) GC • GLnjN 
IFI GAeC-(GAtGC) .GE. G81IN) GO TB »21 



2-» 
2-19 
2'.3 
211 
212 
213 
21» 
215 
2U 
217 
21B 
219 
22'. 
221 
222 
223 
22* 
226 
22ft 
227 
22» 
229 
230 
231 
232 
233 
230 
235 
236 
237 
23B 
239 
2»0 
2-1 
2*2 
2»3 
2»» 
2»5 
ttb 
2»7 
2»8 
2»9 
2B0 
251 
252 
253 
251. 
255 
236 
237 
25! 
259 
260 
261 
26? 
263 
261, 
265 
266 
267 
2611 
269 
270 
271 
27? 
2/3 
27k 
275 

276 

277 
279 
2/9 
2"? 
2*1 
2"' 
2«3 
2«i. 
215 



29? 
293 
29* 
2'5 
296 
297 

29R 

2»9 
330 
301 
332 
333 
33k 
3-5 
J-6 
337 
339 
339 
310 



182 



GABC - ( 5CM>; ♦ GBMIN) 



GABC - GAMIN 



GABC 



QBCMIN 



GA • '( GDA/I GUA+GDC) )•( GABC. GBMIN I 

IF( GA «LT. GAMIN) GA ■ GAMIN 

IF( GABC - (GA ♦ GBMIN) .tT. GC"IN] GA 

GC ■ GABC - ( GA+GBMIN) 

CBNTINuE 

SPLITA . GA / GABC 

ISPLT . SPLITA • 1303. + 5 

SPLITS • GC / uABC 

ISH L T2 • SPLIT2 • 1000- * 5 

G9 TB »13 

CBNTINuE 

C6MPUTE B PHASE SPLIT 
oOAC • AMAXK GOA, GDC) 
G6 • ( G3B/( G0AC*GD8)) • GABC 
IF( GB -LT. GB"IN) SB ■ GbriN 
1F( GAbC-Gd .LT. GAMIN) 
GAC • GABC - GB 
SPLITA . GAL / GABC 
1SPLT • SPlITA . luCO- ♦ 5 
ISPLT2 • 
G9 T8 »1* 
CBNTINuE 

CBMPUTE A PHASE SPLIT 
GDBC • A1AXK GDB, GDC) 
GA ■ I 3DA/( GUA + GUBO) • UARC 
IF( GA .LT. GAMIN) GA • GAhIN 
GBCMIiJ • AMAXK GBMIN, GC«IN) 
IF( GABC-GA .LT. GBCMIN) GA ■ 
SPLITA ■ GA / GABC 
ISPI.T • SPlITA • 1000. ♦ 5 
ISPLT2 • 

CBNTINUE 
JSN • 2 • (1SN«1) ♦ 1 

TEMP8ARILY ST6RES SPLITS, CBMPUTE CHANGF 
CALL GtTBIl HUOSPL, ISN, JSHf, 0) 
IF( JShF .NE. 0) GB TB 1001 
CALL PnH«t ISCT, JSN, ISPLT) 
CALL P*H„(ISCT, JSN+1, ISPLT?) 
CALL UPH«< SPLIT, jSN, ISCAC) 
SCAC • FL8ATI ISCAC) • XD 
SCAN . FL8AT( ISPLT) • XD 
SCTBT . SCT»T + ABS( SCAC • SCAN)/ ScAC 
SCCNT • SCC^T ♦ 1.0 

TRA IF N8 C PHASE 
IF( K3PH .NE. 1) GB TB 1001 
CALL UPH*I( SPLIT, JSN+1, ISCCC) 
SCCC • FL6AT( ISCCC) . XO 
SCCN • FLBAfl ISPLT2) • XD 
SCIBT > SCTBT ♦ ASS( SCCC-SCCN)/ SCCC 
SCCNT a SCC^T ♦ 1.0 
CBNTINuE 
CBNTINuE 

C C9.1PUTE AVERAGE SPLIT CHANGE 

IF( SCCNT .LE. n.OI SCCNT ■ 1.0 
SC*VG • SCTBT / SCC*T 
C CBMPARE »ITH T8LEPANCE FBR P8SSI LE RFBPT HI I AT I8N 

IF( SCaVG .BE. SCT8L) IREBPT • 1 , 
♦60 CBNTINUE 

08 600 I«l,8 

IF(CYCuB( I).NE.CYCL(I 1 ) IREBPT • 1 
CYCLBl I ) • LYCL(I) 
600 CBNTINuE 

39 7j„ 1-1,5 

]F( INTf9( I).NE. INTFI I ) ) IREBPT • 1 
INTFBl I ) • 1NTF ( I I 
700 CBNTINuE 
C ST8R£ N E * SPLITS [F RF.BPT MI ZAT 1 8N FLAG IS SET 
IF (IRF8PT.NE.1) GB TB 1033 
SB 10o? I • 1, 12* 
C...tH£C< F8r BPERATBR DtMNEO SPLIT BtFBRE CHANGING 
CALL SET3I (HLDSPL,I,KSPHLO,0) 
JFIKSPhLO .EQ. 3)SPL]T( I I.1SCTI I ) 
1032 CBNTINuE 
1003 CBNTINuE 
RE TURN 
END 



1001 
*50 



ill 

31? 

313 

31* 

315 

316 

317 

31B 

319 

320 

3?1 

322 

323 

3?» 

325 

326 

327 

328 

329 

33? 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

311 

3*2 

313 

3** 

3*5 

346 

347 

3»8 

3*9 

350 

351 

352 

353 

35* 

355 

356 

357 

358 

359 

360 

361 

362 

363 

36* 

365 

366 

367 

368 

369 

37o~ 

371 

37? 

373 

37* 

375 

376 

377 

378 

379 

3*3 

381 

3X2 

383 

38* 

385 

386 



183 



2.6.96 SUBROUTINE IRTN 



cs 

• £ 



•-1R5U 
"ENS 

"MB". 

^SFF 
LAhC 
SSS( 
-T:s>, 
ICI 

1: 



T I ME I'T'.( 13-i. |MT, ITK 
ISN [NT(»51 

/JL^IS/ 
|62) . 

I Jl 1 i 

(12*1 / 



l ) 



ClC'flil 
CMBFi Jl I 
uGuT(12it> 
(i(5GG(12*) 
T< "(31 ) 



CTOjF ( 8 ) 

crCLCm i 

GAwTPnl I 
Gu*dC< !?•»> 
.vKKUK , 7; ) 



EMM(i,961 
jP»TP( 51 ) 



P(2).NC> 
/1ISCL, 
I .1/1* 



GCftM (31),GCMS!(2), JBP'.S( ? ), 

,'.L. .G-.PS 
ClCI NH (Sl iLi»a(3)»CVC I 'EF ni. 1 



C! V-( D ( 



3i, -poClis). 

IC351 (?) 



:al.l 



IT 

IF 

3J C5 



i 2: 

■ 1ST. 
ILL 'i 
-Till 
1NT1-. 
ILL J 
ILL 3 
? JC' 
.1ST* 
ILL i 
*LL J 
l.l I 
I IT' 
'IT I , 
TU»\ 



>iE 

j-)v 

tTriY 

I 

„TdV 
. IM3 

L.E 

fc.T\JY 
tTdY 
I«l. 

I 

iH» 
fcTJY 
T'*l 
. JT. 
Lit 



( ICGS1, IC.W, 1ST) 
(NICIGP. IG^. I VJ ) 
INN 



(NCIbfiP, [GR. ISM) 
(UCNTSI. IGK, 1ST) 
INN 

HjCSnt.m. icisi 
( 1K1.IC9MIT.") 

IT<1) IT<r.IT1 



2 


? 


2 


1 


2 


2 


2 


3 


5 


it 


2 


5 


2 


6 


2 


7 


2 


8 


2 


a 


2 




2 


»1 


2 


?? 


2 


?3 


2 


= » 


2 


= 5 


2 


?6 


2 


?7 


2 


?« 


2 


?9 


2 


3C 


2 


31 


2 


3? 


2 


33 



184 



2.6.97 SUBROUTIN E LPHASV 



P9jTI <E : lpi*S< 



LPHftSv 
SjSKSjTIN'E L»ha.SV< IVT,LN<j<3P#uABiGBc. jABO3A",u0",GC1) 
C'J"^'?\ /t(L*7 /AB3K16) < !M"I(31l » IM2K31I . 

. <iTC(l7)i<3PMl(31 l.STOPF.NBLI 31) 
CSI.-'S?. /•JLxl'./ CLtAG . DTLN3 , C*LNG 

. DU-.Yi, JU'Y2, C\T,.\(372>,t K TFL{5J/ 

• <CL1WI< «LTF(17)« KC'oF(|7), 

,, 4lvA»(31) , SEfSKIS) , ■ iCIM(i?3| » L«PT<<f,*l 

;h1'!S /-1L<H/ CICTF(S) ' , CT8JF10) , bT8Vj(*l 

. C3NTS+62) -, CJWBF1J1I; . CYCLC(31! < tMNT(.9fc) 

• ENHFF|31> , 3Gi>7(12»i , 0AwTP(31> » SB.TPOli 

• GLABC(12»> i 3GJS(12«!) , GUAdC(l2») . IMTDu(«9fc) 
» SSSSll2<ti , TKH(31) , wRiOF ( 31 ) 

I M'LCiE^ JA.J»'JBCjGAriC/GAPl,QSi-,GCM 

BI1ENSIBN uN<(6) . 

D9 id [ilit 

L^< ( I 1.0 
10 C3NTINL.E 

CALL Jt.Tr)T(H1P-.I, ImT.KJP) 

I3X.4.I I »T.l 1*1 

CALL itT.jYiojQf, IDA»o»ai 

CALL Jt.TuY(UCGT # 10x»l,oeC| 

CALL 3t TBYIliG&T, I3x»2»GA-JC> 

CALL GETHY<U3G0,IDa»GA>i) 

CALL JETBY( j'iGo, ID*»U3B^) 

CALL oiHY(bl,Go, ID**£,GC-1) 

IF(K3P.3E.2! C*LL GETBY ( SSSS, 1 CX»2« Uc u ) 

1ST. 6. ( INT. 1) 
GET SURnflUNOISG LIN". NU^BE^S AND STCSr Br pwASF 

CALL jf TaY(N-.L/ ^T» 1 I ) 

1ST T. I ST* I 1 
30 CONTINUE 

J.FI ISTT.LE.1STI ii9 T 8 *o 

IST.IST*1 

CALL MALF(CMTLN. IST.LL) 

IF(LL.lT.O) Gf> T8 30 

LL«LL»1 

CALL it TdY(L<PTR,LL< I 1 

IF( I.jT.t) 39 T1 3u 

I r l LN< l 1*1 I-EC3I LNK(I*1)»LL 

3ST8 30 
»C CONTINUE 

CETU* I 

EVJ 



3 


1 


3 


7 


3 


3 


3 


it 


3 


5 


3 


t 


3 


7 


3 


B 


3 


9 


3 


10 


3 


11 


3 


1? 


3 


13 


3 


1* 


3 


IS 


3 


If 


3 


17 


3 


IS 


3 


19 


3 


20 


3 


21 


3 


5 2 


3 


23 


3 


?* 


3 


25 


3 


?k 


3 


n 


3 


28 


3 


29 


3 


ir 


3 


31 


3 


32 


3 


33 


3 


3k 


3 


35 


3 


36 


3 


37 


3 


11 


3 


39 


3 


»0 


3 


»! 


3 


«2 


3 


"3 


3 


nil 



185 



2.6.98 SUBROUTIN E SMSCYL 



C • SMSCYL » 1 

SJ"PBuTr.E Sis{.YL(INT»SU!1*>S:i"IB»SU>1C,BUiT.,CrCl.E] » ? 

IS'tdE" CYCLE,Su! - A,SuMe/SU" , C,SU''-T * 3 

" CSIMSN /3JC.BNT/ k,7»8FS(12»)/ Dllitli I C * ( 3 1 l»EMCYC(3t 1/ SPLIT ( 12* I , * » 

1 CufcPj|31) • * 5 

C91MBN /PATNi/ »8CSTRT(1Z*I»*BCEN0(1^« ><bt»S(3i I.DELTOl 1/ «. 6 

1 S"HA3i_(12«>.SABC<ia»l»SU"1AC3C(3l) » 7 

CS^MB', AlLM*/ CLLN3 . DTLMi . C«L>^j 1 R 

o D'JMYi, LJU IT?, CNTL"-(372).L'vYFL<5>» ■» S 

b <tL<!7), «CTF(17), <CSFI17), * 10 

o N»lv»*{31) < SEi-SmS) , VRINT(1?3) . LKPT*(i») » 11 

C^MSn /dL<18/ CICTF(o) , CT»jF,g) , ST&VDim , « i? 

• CBNTyib?) , CUK8FU1) , CYClCi31) , EMVTIHtl , 1 13 

• fcABFFlJl! » (3uOT(12») , GAwTP|31) • 39<.Tp(31! » 1* 

• 'jLAQC(12»> > aGQ6(12*l ■ &UA:iC(>?*> < I MDCI ".9?: 1 . » 15 

• SSSSllJI) , TK'M3D / WRK8F131) ■» It 
C SMSCYL &£1S 7*"E L»ST T1 M ES A^O T«E CYCLE LENGTH FBR as IST[PSeCt » 17 
C LyCLfc • T"F LyCLE LENGTH fgft TM£ I \nJlSECT I 8\ |I\T) * 18 

CALL jFT-JYiENTCYC, IM.1CYC) * 1 ■> 

CYCLE • <CL ! ICTC) ♦■ 2C 

C Suma, SulB. AMD SL1C A^F Twe LSST TI-ES FSLLOfclNj ThF », p, ASD » 2] 

C SU*T 13 T<F L6ST T I M£ PE-< CYCLE » 22 

IP9SN i »•( IMT-1 I * 23 

CALL GfTdYlbSSS, IP8SJ + WSU1A) » 21 

CALL 3tTiY(5SSS/IP9SM»2/Su1b) * 25 

CALL jtTdY(SSSS, IPaS^IO/SU-IL) « 26 

CALL uETBYlS^TABC, 1»8SN**/SIMT) * ?7 

CS^TINbE * 2S 

RETURN » 29 

E\U « 30 



186 



6.99 ROUTINE LSTSQS 



5 


9 


5 


10 


5 


11 


5 


1? 


5 


13 


5 


U 


5 


15 


5 


16 


5 


17 


5 


IS 


5 


19 


5 


50 


5 


51 


5 


5? 


5 


53 


5 


2« 


5 


?5 


5 


?6 


5 


27 


S 


2? 


5 


59 


5 


33 


5 


M 


5 


35 


5 


33 


5 


3» 


S 


35 


5 


34 


5 


37 


5 


3» 


5 


39 


5 


*3 


5 


»1 


5 


*2 


5 


»3 


5 


141, 


5 


*5 


5 


»6 


S 


17 



")1UTl\ti LSTSBS 

c * lsts:.s 5 i 

SjsKBuTI-'-F LSTS3S( IIJJ) 5 3 

CBN B'J/LS WP/IC^PlSOO) 5 It 

C LSTSQS PRBo^A*. 5 5 

IMESt* 3N0EX 5 6 

f^TEutS 9 5 7 

l\TE.uflK PV. W S 5 5 

DIMENSION 19(6) 
DI "-ENSIS-N !S3(8,B) 
BPENSIB'. LINK2(i75> 
DI^EMSIBM INTSU5) 
3PENSI9N *CYCLE(8).CVC(8,b) 
3I1ENSIBN eETA(l75> 

SINENSIS'. AEUS).C(»S).UU5),TBU5) 
OPENSIBM DU<«5> 

3I1ENSI8 J G( 175 1.0(1751.30 (175) 

SIRENS IBM LN3EX( ITS). I'vDEXI 1 7S I • JNDEx c 175 1 . 8M5EX I 175 I 
DPENSIBN A"IN(175) 
DI1ENS19-I X(175).Y(175> 

3 PENS I 8'. FlJEAL(175).CYCL(l..).CoHV(!u).E(1058l.*0l.(n) 
DIMENSION L1MKI175) 
PJIE'JSIBN J0(6I, IFaZE(175) 
CBIMBm /3LK' Iie.MCYCLE.CYC. ;-»(S) 
CB v 'MBN/ULKi/IMS 
CB"Via\i,dLKJ/ V( c621.PS (262) 
CB^MBN/aLKIf/l JTFLu 

CSIMB'j /rfLKb/ I PRO. IWT, 1TKDLY.. JulM(»i 
EQUIVALENCE (BETA, 3) 
3ATA X[;/.0Oi/ 
LIVI I ).( I«( 1-1) )/2 
39 88j..> IIIU1.R 

If" USB l II II ).NE.ISa(l. Ill I) ) IHE8PT.) 
|S9( I I I ILISBU, HI 1) 
8803 CBNTISoE 

38 55JP I III ■ 1/IIJJ 
IW1»427 

IF1 1SB( 1. II I I I .E(J. j) 58 TB 5503 

CALL LI«D(ISBIli I I I I )#I , <TS,LnK»L>.DEX»I\DEX»JNDEX,8NQEX.I-H , <e> 
33 2901 I • l.»5 
JF< IM3II I .tO.O) SB TB 2902 
VM * I 

2901 CS^TINot 
2'->02 CB'JTI.S^E 

39 2903 I ■ 1.175 
IFILINkII 1-EU.O) G9 TB 290't 
L^<S.I 

2-X' CS^tinuE 
?90» C9MTI \uE 

[?\D<1»*?7 
C IMSt;<T STa>-T-UP AMU S9WTI\G 

(*>1 

1 1 = 

J0^Po-8 

39 29-3 ISb 1,L\<S 

i « I^LEX(IS) 

SFII.Lt'J) liS T* 29CO 

j » JNL-EXC IS) 

IFIJ.Lt .0) >i9 TO 29C0 

ix'ix*] 

,_NJEX( IX) a LM3EXI IS) 
IN3fcX(lX) » INUEX(IS) 
JVJEXI IX) a JN.3EXI IS) 
9NJEX(IX) a 9NJEXUS) 
1.1 ■ l1"»<< IS) 
L2 o LI^2(I3) 
I T ( !. 1 . fc Q . ) Ufi TB 29&0 
IF!L2il!3«0! G8 TB 2930 
CALL LL^ESILI. Iv9 L , I SPEED. I9CC) 
CALL LL'3THF(L2.LGTh. IFZE. L 1 1" F, "SP I 
FL^GT»l3TH 

IF( IPF-.D .E ; J< ) G9 TB 2935 
IF( PviLl I -ST. 3) IV8L . Pj(L1 ) 
IF! PS(Ll) -3T. J) ISPEEO « PS(Li) 
833a CSNTIVE 

IV9L » IVBi. ♦ 1V.T . IBCC 

S D EE0. ISPEEO 

V9L.IV0L 

FLIh«Ll".F 

AlSPiXSP 

SPEE3"S D EE3»AMSP/100. 

A1N( IX)»XO«VSL«FLIi-- 

FlJfAL(iX) ■ FLNGT/SPEED 

lFAiE( IX!>IFZE 

IF(j3f.p .QT' 78J1G8TB i'930 
J3i-P«J0np+9 

IUMPIJDmp ).L1 

JOKPUD^P+l )»L2 

I3'<F(jC''.>'*2).INTS< I ) 

IDi1P( J0ilP*3).INTS( J) 

ID-1PI JO^^tll.VBL'lOC. 

IO'1P( JD 1P+5 1. SPEED- 103 • 

!3 V 'M JDMP*6)«FL1M*100» 

ID-.PI JC-iP*7)iA-1s( IX)»100« 

1RMK JD J lP*8)«FI0EAL! IXIMoO. 
2933 CBNTIMuE 
<1AX=U 
<SAVE»KlAX 
IXX.IX 



b 


51 


5 


32 


b 


53 


5 


5» 


5 


55 


5 


b6 


5 


57 


5 


58 


5 


b= 


5 


60 


5 


61 


5 


6 2 


5 


63 


5 


h<* 


5 


65 


c 


66 


5 


67 


5 


6» 


5 


69 


5 


7C 


5 


'1 


5 


7? 


5 


73 


e 


74 


5 


75 


5 


76 


5 


?7 


5 


7S 


5 


79 


5 


90 


5 


81 


5 


Hi 


5 


83 


5 


?<i 


5 


95 


5 


86 


5 


87 


5 


»8 


5 


89 


5 


90 


5 


91 


5 


92 


5 


93 


5 


9* 


5 


95 


5 


96 


5 


97 


5 


98 


5 


99 



187 



IX«0 

09 2999 IS. l.LNKS 

IIX.3 

1 « INOEXUS] 

Id I'Lt >3) 1>B TB 2993 

J " J'l!,EXI IS) 

IFIJ-LEO) u9 T 9 2399 

IX'IX-M 

D8 2999 :SS°1.LNk.S 

I ■ IUEX(ISS) 

J • JNDEXI [SSI 

IF( ( I.tS.Ol'B'!- ( J,ES.O) ) HI TO 2999 

IIX.Ha+1 

I.LNDEaIIX) 

I.INOEaI IU) 

IflL-'.f. '1 ) J5 T6 2999 

I«!ND£x<lX> 

j.JNDEa) I 1a> 

IF(I.NE'J) Ij8 Tfl 2399 

J.JNDEX1 I * > 

S»9NDE*(I I X ) 

IF< j.Nt «11 <»8 Te 2999 

IXX.Ux+1 

AI^CXX) a lAf|N( !»!4.VA! : i"i - •?. 

rUEALIlxxi j F!D£A!.:?X! ."!Cs-aUIIx> 
IO£x< IXXLLMDEX( I j > 

_NJEX( 1 <X)aJ\Or.X(iX) 

in-0.li A2Ei IX) 

IFZl.J.FAZFdlx) 

If»Z"E< IXX).f."8S(lE7.U»3)*3»( IF 7 J/3) 

2999 C9MIV.E 

x-l6X$n| XX 

X^'XbKi^.AXS 
3'J3.l C9*TlNi,E 

jCCLE » MCVCLEilMI) 

D6 3D10 JJJJ a 1/JCVCUE 

CUKVIjjjj) » CVC(1III»JJJJI 
OOiB ADLIJjjJI b 103000« 
C 1XTRIX ASSEMBLY 

39 301 HelJlC-58 
301 EdlloCO 

*1«NN«1 

59 31 J i.= S#M! 

LL«L!NF(LS 

09 35 K.-triI\_„*W,>.xs 

I'INDEX(S) 

j«sJNDE).(<) 

IFd'EUeL) OS T6 305 

IfiJ.ML.L) OS T8 SIC 

Kb LU=i..Ul, 

£<LLU i! E!L.LLI 1 AMN(K) 
IF(J.QT°D ^8 7* 110 

tlULJ! e E!Ll-Jl «A.MS(K> 
310 CBNTI^E 
C T«lAN3JL*T!C'N t 1 '" ilATRlf. 

39 325 IaljNi 

LI'LINF (11 

33 325 J«J.I 

SJ1»0oj 

,.J«L!Nt (J) 

IF( j.Eu'l) US TB 317 

jFIN.j-1 

39 315 K.1,JF[N 

Ll««LNK 

IJX.LJ»K 
315 Su1jSu,-.*E(lI«)'E{LJ<) 
317 k |J.UI*J 

iFl I •£(>• J) UH T3 -,T, 

3li IF(E(UoJ)«l.E»C«-)3000i) GO fB 3001 
3 1 S E I U -J > * ! E < i. ! J .- SU" ) /f I U J J ) 

56 79 a25 
v '. IF(E(LIJ)«LT.SL>«) (58 TS 3002 
;'.. r •■■'-; \uK 

EC ' !i-S3RT(T£KPl 

>";;■ i: 

C !*".'£=: • t)F LB«EH Yl*IANei.t 
0.; ' ■ i '• I.n; 
. i Li ■■-> (' ) 
LILLU! 
32o IF(E(Ld>vJJL»OiBOCC)<HJ r.n ?a 5-;o3 
HI PIVBTcl'/ElLIll 

IFII.E..1I U8 T8 3»0 

IFIfvi= I»l 

DS 335 J.i#IF|N 

SJI'O.O 

33 33C K-JdFIN 

UKJ«LII>.F(K)*J 
330 SJ"i»SUh*E(LlK)»E(LKJ) 

LlJvLI.J 
333 E (UI J).-PIv"T«Sl.J f 1 
3*0 EUIILPIVBT 
C CALCUL»TI8\ 9F INVERSE «F MATRIX 

39 35j I.i^l 

LI.LlNF (I) 

39 35., JM.I 

StP'O.'. 

35 3»S <=I»Nl 

;.*»LINF <<) 

L<I»L<«I 

3*5 SJi.SUl »E(LKI )«E(LKJ) 



s 


100 


5 


101 


5 


102 


5 


103 


5 


10» 


5 


105 


5 


10% 


5 


137 


5 


108 


5 


109 


5 


110 


5 


111 


5 


112 


5 


113 


s 


m 


5 


115 


5 


116 


5 


117 


5 


115 


5 


119 


5 


12S 


5 


121 


5 


12? 


5 


123 


5 


12* 


5 


125 


5 


126 


5 


127 


5 


12S 


5 


129 


E 


13C 


E 


131 


5 


13? 


5 


133 


5 


lit 


5 


13S 


3 


13* 


3 


13? 


5 


S3: 


3 


i3S 


5 


1*0 


& 


1*1 


3 


1«2 



5 


- ''6 


3 


:*7 


S 


i ;/ 1* 


S 


1*9 


15 


155 


." 


151 



S 


153 


5 


IS? 


5 


15? 


5 


15S 


5 


160 


5 


161 


5 


16? 


5 


163 


5 


16* 


5 


165 


5 


166 


5 


167 


5 


569 


5 


169 


5 


l?w' 


5 


1"! 





»'? 


3 


1?3 


5 


17» 


R 


175 


5 


1?& 


5 


1 77 


5 


I '/!} 


5 


179 


c 


180 


5 


iM 


5 


lHf 


c; 


1?J 


5 


1«« 


5 


185 


•3 


186 


S 


187 


5 


1»S 


5 


IK9 


5 


190 


5 


191 


5 


132 


2 


S9:j 


o 


19. 


5 


HE 


5 


196 


a 


197 




198 


5 


195 


5 


2?C 


5 


H.M 


5 


20? 


5 


203 


5 


■25* 


5 


2US 



188 



350 EILIJl.SUM 

LRBw.LlNFMN)*! 

D8 3SO I«LRB»,LELMT 
3«0 E{ I!. 0.0 

08 3550 <.l»KMAx 
3350 5(K),o 

D8 376 Ltl.NN 

LLH.IMF (L) 

DB 375 <nK,"1IN»KMAX 
3552 I»IN0Ex(K> 

IF(I<El°L1 B8 TS 360 

IFtJ«.NE.tL) «8 TB 375 

J«I 
360 LLLoLLi-L 

fFU'GT'L) US T8 365 

li.J»U- + J 

S9 TB 370 
365 LL>LINF( J)*U 
370 CONTINUE 

6(«) = 5(K)*E(LLJ)-E(LLL) 
375 CBMTINuE 
C*»«e C8MPUTE X("N) 

06 379 KsK,llN/K*iAX 

X(*}»3 

S>AK*l(lO<>BETA(<)+l 

X(K!i«(KI*A"N(K)«3 
X(t!)»t5»X(lO 
379 CBNTlNuE 

390 CO^TiMuE 
C TEST LIST 3> SIGNAL CYCLES 

06 SRSo JJJ«1*JCYCLE 
SCL'WCURvlJJM) 
08 »5lo KoKrtJfv/KKAxS 
SB *5ll <IJJ»S»* 
!9iKIJj).0 
■•511 CBNTJnuE 

| JP« INDEX IK) 

I9(1I»INTS( UJP! 

I0^».J:*!,EX<<! 

I9(2)aINTS(lDN) 

I8(3UI"AZt(K) 

19U>«CLmv( JJJ) 

CALL CSWECTl IS.KORR) 

ncea«iC8Rs 

i(<)oSCLMFl3F.AI. IKK-FIC6R/2 
*513 CBMTINuE 
C SET jP FHST 3A">E 
EPSI.toOOOl 

OLVnN i liOE*35 
C PLA» SERIES BF l»AME3 

MG*MESoi5 

06 790 "UUNaAiiES 

OS l>50 KsWKIAXS 

S3(K>eSIK) 
»55 CSNTINjE 

DB ISO Inl.-*"^ 

IRN»205i»!HNDM 

I RMDMsKSOdKNaMStiOtl 

RNDKXoIRNOM 

fD(I) » SiND" 1 * / tlStSOti 
* C(I)=0.0 
*60 ii ! )oO»0 

TO(NN).O.n 
C TkA'vSF , 9S v ! TP STARTIM6 PCIST 

DO 560 x»Krt!N»KHASa 

[•INDExlK) 

JoJND£*(l<) 

7i*ao(io»Ta( n-;D( ji 

IPIU)v3Ci5l>C,5»: 
510 TWUlO 
520 IRTWu«5)510*553»550 
530 T1*T1«] .0 
5«0 |F1T1oc'5)5"jD»53J»530 
S50 (ja(K)«Tl 

C( 1 ) • C( !)-AMN(K»»T! 

C(J) » CIJ>*A1r,(K)»Tl 
560 CBMTINuE 

ITERSo 
C SPTJMIZE IN JIvEN KElJlO N - 

05 590 I.l.NN 

LI°L!NFU> 

D8 585 Jol»"<N 

IF ( J.uTtI ) SB TB 5SC 

L IJ.LI*J 

53 TB 583 
SSO LlJ«LIf*RJ)*I 
58.3 C8NTINLE 

0( I )»D( I l*E(LIO)»C< J) 
565 CSNTlNuE 

T0( I >.TD( I )*0< I ) 
590 C8-'TI\uE 

CH1AXL.0.0 
C r^A^S^BRM TB LOCAL 8PTI M 0^ 
620 08 63C K«H«I\»K><AX3 

l.INDEx(K) 

jo JNDEx(K) 

™" >-'.a(K)*oi I i-oi^i 

630 CBNTlNuE 
C SEARCH F8R NEIu'W' BPTI'IA 
635 CH"1AX»r»0 

08 656 K»KMlM.KMAX 



5 


206 


5 


207 


5 


208 


5 


209 


5 


210 


5 


211 


5 


212 


5 


213 


5 


21» 


5 


215 


5 


216 


5 


217 


5 


218 


5 


219 


5 


220 


5 


221 


5 


22? 


5 


223 


5 


?S* 


5 


225 


5 


226 


5 


227 


5 


228 


5 


229 


5 


230 


5 


231 


5 


232 


5 


233 


5 


234 


5 


235 


5 


23b 


5 


237 


5 


238 


5 


239 


5 


2*0 


5 


261 


5 


2fc2 


5 


2»3 


S 


2>it 


5 


2«5 


5 


2»6 


S 


2«»7 


s 


208 


5 


2A9 


5 


250 


5 


251 


5 


252 


S 


253 


5 


25» 


5 


255 


5 


256 


5 


257 


5 


25S 


5 


259 


5 


260 


5 


261 


b 


26? 


5 


213 


5 


p*.*: 


5 


246 


& 


.'!.'• 6 


5 


IhV 


5 


£63 


5 


265 


S 


270 


5 


£71 


5 


S72 


5 


273 


5 


27* 


s 


275 


5 


276 


5 


277 


5 


275 


5 


27« 


5 


?S- 


5 


28! 


5 


2*? 


5 


283 


5 


2»» 


5 


285 


5 


286 


5 


Bf>7 


5 


2KB 


5 


289 


5 


2"0 


5 


asi 


5 


2^2 










5 


29* 


5 


295 


5 


296 


5 


297 


5 


29? 


5 


299 


5 


3D3 


5 


301 


5 


302 


5 


303 


5 


30k 


5 


305 


5 


3:f 


5 


3'17 


5 


308 


5 


309 


5 


310 


b 


311 



KK-K-KI- IN*1 
Y(<K).*"VI<<«).3(5(KK ) 
6*0 CSMInuE 

C-iJLY.aKKI-ASSIS) 

IF<C*OlY.GE'CHMAA> SB T9 650 

C-CAX.CHULV 
650 CS^TInlE 

IFiCh.-iax.GEm-EPS! ) ) 69 TB 7o5 

iF(CHK*X.eE«CH^*«L) 58 T8 66? 

CH*AXL«ChMaX 
662 BlTERS=ITE^S-53 

IF(BITt'»S.LL.O.-) SB T9 668 

CITERS.ITEBS.JCO 

3ITERS. ITEMS. 151 

S.EPSi.tl]TE»'S 

IF(CH"\4X.UE.S) GO T8 705 

3.EPSI«CITE*S«CHMAXL 

IF(CHiAX.GE'S) G8 T8 705 

SS.ABSlDITt^Sl 

S.SS°£PS1»D1TEKS«C"*AXL 

IF(CHMAX.GE'S) 68 T8 705 



S68 



"i« 



680 



■.K.K-Kr IN+1 

ITERS.ITERS*1 

Sl'(K«) 

1FIS.GE.J.-) GS 
670 EN=ltO 

58 T8 o90 
080 E\»»1«J 
690 Q'itKKI.QOKK UEK 

08 6913 L«1»SN 
69i3 D0(L)"O'0 

A-!NP.Ar-.N(K)«EN 

I.INDEaCK) 

o.JNDEx(K) 

08 700 L«1jNN 

IF(J.GT.L) G9 TS 692 

LLJ«LINF(L)*J 

G8 TB 69* 
692 LLJ»LI\F( J>*L 
69* [Fl I.GT-L) U3 T9 696 

LLI«LI nF(L)»1 

68 IB h 98 
696 LL!*LIUF( Il+L 
694 CSNTINuE 

S«»' v iNP.(ElLi-J)-EIULl I I 

do(l;>od(d*s 

0(L).0D(L> 
TD(L)dTD(L1*S 
700 C9*TSnlE 
G8 T8 o20 
C CBMPjTE FINAL OELAY 
70b DELAY. 0«0 

08 708 k»km:n»hmaxs 
708 delay » oelay * amm ( ki *qq ( ». ) »qq( k ) 

S.ADL(-jJJ) 

IF(DELaY.I.T«S) A'DLIJJJJ'TJEUfy 
C STANDARDIZE i>( I ) 

08 7<>r I»i#NN 
Tl«TDl I ) 

711 IF<T!)720»7*0#738 
7i0 TIoTUb. u 

09 TB 711 

730 T1"AM8l(T1,1.0I 
7*0 0( ll.TI 

IF<DLY,*.N.LT>-,. 00001) G8 T6 903 

Tie<DELAYoCLYM\)/DLVHN 

GB TB 90* 
SOS UoDELAY-DlYIN 
90* CBNTINuE 

S»»9S(T1! 

IF(SiLE«0«00301) GB T8 905 

IF(T1-lT.0«0» G8 T8 910 
9ub IF( <M«f«8*I.<)iGE«9> G8 T8 792 

G'JTS 790 
910 \8lIN.h 

DLYMN.DELAY 

08 75* <»1,N\ 
75* AE(K).jlK) 
790 C8^TlNuE 
792 CBNTINuE 

IF( 18P.ES. 1 I 68 T9 5*'*0 
5250 C8*TlNoE 

J'l.jCYCLE 

X~^.1u.E+1 j 

08 5310 J.1«JM 

S'ADLl u)«CUHV( J)«»2 

IF(XMN.LE.S) G8 T8 5310 

XMN.S 

Cl • CURvlj! 
5910 CS^TINuE 

Cu"<</(1 l.CL 

I8P.1 

G9 T8 39C 
5**0 19^.0 

D9 505' IS • 1»NN 

ICSNT.p.TSI IS) 

19(11. CL 

19(2). AE( IS1»Cl*0.5 

I?(3I. I III 

CALL l_UADAT( 1C9MT, 19) 
5<J50 CSNTINuE 
C 

c 



5 


312 


5 


313 


5 


31* 


5 


315 


5 


316 


5 


317 


5 


318 


5 


319 


5 


325 


5 


321 


5 


3?2 


5 


323 


5 


32* 


5 


325 


5 


326 


5 


327 


5 


328 


5 


329 


5 


3JC 


5 


331 


5 


332 


5 


333 


S 


33* 


5 


335 


5 


336 


5 


337 


5 


338 


5 


339 


5 


3*0 


5 


3*1 


5 


3*2 


5 


3*3 


5 


3«* 


5 


3*5 


5 


3*6 


S 


3*7 


5 


3*8 


5 


3*9 


5 


350 


5 


351 


5 


352 


5 


353 


5 


3b* 


5 


355 


5 


356 


5 


357 


5 


358 


5 


359 


5 


36C 


5 


361 


5 


362 


5 


363 


5 


36* 


5 


365 


5 


366 


5 


367 


5 


36S 


5 


369 




~3Tfj" 


5 


371 


5 


37? 


5 


373 


5 


374 


5 


375 


5 


376 


5 


377 


5 


378 


5 


379 


5 


380 


5 


3*1 


5 


382 


5 


383 


5 


38* 


5 


3HS 


5 


3*6 


5 


387 


5 


388 


5 


389 


5 


390 


5 


391 


5 


39? 


5 


393 


5 


39* 


5 


395 


5 


396 


5 


397 


5 


398 


5 


399 


5 


*00 


5 


♦ 01 


5 


*02 


b 


*03 


5 


»0» 


5 


*05 


5 


*P6 


5 


»07 


5 


*08 


5 


*09 


5 


»10 


5 


*11 


5 


*1? 


5 


*13 


5 


*1* 


5 


*15 


5 


»16 



:\TRY INT9 LBAOAT TB 8PTIMU E BPEPA TBP ENTERED 6FFSETS 



190 



c 

C''.U. LaAD*T(.NN, I NTS I 

G9 T3 bbuo 
3003 C8NTI.NUE 
3002 CSNTINuE 
30U1 CONTINUE 

Ca'.,L 0BU5l«»U) 
5SP0 C?MInoE 

SEI'uKN 

£NJ 



? 


»13 


*J 


119 


^ 


*23 


5 


»Bi 


5 


■!?8 


3 


• 23 


5 


»2* 


5 


125 


S 


426 


5 


»27 



191 



2,6,1^0 SUBROUTINE CORRECT 



• CBRRtCT 

SUBRSuTHE C-WFCTl ITB' ICP = «) 

Ce"^e . /BL<7 /»«(>1IUI » !NTH[(31l , t\?2I(3;> 
• «CTC(! 7),<3PHI (31 I.STUPF.'^UL (31 ) 

CBire:-. /SJCtJM/ oR«eFS(12»)»!i5(l?»)*IF»(3l)»ENTCVC(3l)jSPLIT(12it)j 
1 CGRPM31) 

C9"MBN /PAT'^G/ *bCSTKT(U«l.4BtE.ND(l?< ( |»r;l»Sl31liD£l.T,3n, 
1 SMAbu<12*>»S»eC( 12»)»SiJ"iCFC(3l ) 
C9MPUTE CBRRECTIBN FACT8K F8« PHASE CBNNECT I SN 9TH£» Than A < A 

IPHi2|.M8D(IT8(3)»3) 

IPH(1 IpITB(3)/3 

DB 100 !«1»8 

FACCl.o. 

IF( IPHI I ) .EU.O) SB T8 100 

ID»t ITb( I ) 

jD*o»»( IDX<-1 1+1 

CALL GETUY(SMTABC, jOX«3»IFX) 
GET CYCLE LENGTH (GREEN T I -F. SM.YI 

[CL.BnlTB(4>«:FX 

CALL 3ETdY[^3Ph!< IDX»H3P) 

CS^PUTE A . PHASE DURAT18M 

IMXe2.( IOX-1 )♦! 

CAUL HAL?(SPLIT,INX» ISPL) 

aa>!SPl«Kl 

CALL SiTBYlSMTABCjjOXj J.BM) 

APH.AA/1000»*ISM 

FAC( I I.APh 

IF(IPH( ll.EU.l) S9 T6 100 

IFIK.3P.GT.I ) GB TB 20 

CALL HALFIS^LIT, INX»1» JSPL I 

BA»JSPL«ICL 

B9«KL-(AA«BA)/ia00- 

CALL GETSYlSHTABC, J0X*1« JS«) 
CBi^UlE B ■ PHASE DuRATIBN 

bfH.astjs?" 

FACi I loFACl I ItBPH 

GB TB 100 
BO CALL GETBY(JFLT,IOx.!OlT) 
L88K AT Liv£RtAPPI\G PHASES 

FACf I>aO. 

IF( IDLT.jT.1B8) G8 T8 30 

FAC( I l.IDLT 
30 IF(K3P,Eu.Bi Gtl TB 100 

FAC! I )=FAC( 1 )«*PH 
100 C3"<T1NlL 

ICSRH^FAClBl.FACIl I 

RETURN 

EN'J 



8 


1 


8 


2 


8 


3 


s 


1 


8 


5 


8 


t 


8 


7 


8 


P 


8 


5 


8 


10 


8 


11 


8 


le 


£ 


13 


8 


Id 


£. 


15 


8 


16 


8 


17 


8 


18 


ci 


19 


8 


BO 


8 


21 


S 


BB 


8 


23 


8 


e« 


8 


25 


8 


26 


8 


B7 


8 


2P 


8 


29 


8 


3n 


8 


31 


8 


32 


8 


33 


8 


3* 


8 


33 


8 


36 


8 


37 


8 


3S 


8 


39 


8 


<o 


8 


»1 


8 


"2 


8 


*3 


8 


i*h 


8 


*S 


8 


»6 


8 


17 


8 


Itg 


S 


»9 



192 



2.6.101 SUBROUTINE LIN KD 



ROUTllti LI>i«U 

C « LINXi 6 1 

aJtSfceuTIME LI'.kDI 1=8, I\T.L'«K.LN0X, l\?X, JSDX. KNOXj L'AS 1 6 2 

3nE">Sl8N ISB(8)jI'-T(*6),L"> ] '(l7bi»l.Nr;)(il73)»IN0X1175)j JS3XI175). 6 3 

1 <^DX(i75!»LNK2(17S)» ISBN(S) (, k 

CS^MS-M /jJD*T/ GCl'.TOI )<GC'vTSI ( 2 ) < SKP\5( ? ) j NCI6f«P'l S ), V33CLI 2) - 6 5 

1 VICI-ih(2).,MCR»VLjf»tiRPS 6 

CS"iMS%< /.iaLlNK/ LI .»LU31 : . L 1 N<HT ( 66 ) . I ALP 1 -" ( 66 ) » GliA* | 66 > . 6 7 

! L^s.'r&i). ->C2lsi 1 2) 6 e 

39 13 l»l#ib 6 ? 

I N T ( I > s 3 6 10 

is csn'Tiu.e: 6 ii 

D8 3'J l«l»l75 6 1? 

L**fl>.»3 h 13 

L^Jxl I l«j 6 1k 

IVJx(I)»0 6 15 

JVJX(!>»0 6 16 

KVJX<I) a 6 17 

lM<?(!)«J 6 18 

20 CSVTINuE 6 IS 

icr.o 6 20 

3? 33 lilir 6 21 

If ( ISB( l)«EU»o) of T a *C 6 2? 

IS9MI)»ISo(I) 6 23 

IC'oI . 6 24 

3* C9NTI\ L E 6 25 

10 jST*0 6 26 

J? 61 ]»li ILT 6 27 

IIMSri.lI) 6 28 

CALL 'itTOYl'JCI^RP. II. IUN) 6 29 

CALL jETaYfUCNTSIi II. 1ST) 6 30 

23 50 j»l. 1 on 6 31 

I I"IST*J 6 32 

CALL olTuvii'CB'.T. I I. INO) 6 33 

jSI.JST»l 6 34 

IMT(JSTln!'.J 6 35 

5U C9^TI\uE 6 36 

SO CSNTINl,E 6 37 

C TAb t £ Wl : JSa CONTAINS N8DES IN SU6 \ET*SR>< 6 3? 

C NS* uET LI-"«S 6 39 

Nu*»0 6 »0 

3b aD Isl.l'-T 6 '1 

II'ISUMI) 6 »2 

CALL if THY|N2GCl» I IjLNKT) 6 »3 

CALL it T «Y;liC2LSI, I I » 1ST ) 6 *» 

35 70 jili,.VKl 6 .5 

II-ISTi-.j 6 »t 

C*LL itTSYr'JlL •<. I l.LM I 6 47 

\L<«f-Ln.»l 6 «S 

l.\*(\La)»L rl' 6 »9 

LN<2( .lOcI I 6 50 

w)J"t'( I 1-11*1 o 51 

CALL 3LTBY(LMNb, JJ, LN0M NL<- ) ) 6 5? 

CA^L JtTaY<L"MJ, JJ*1, P'DXOLO ) 6 53 

CALL jE.TBY(L1t\i8,JJ»2>JND*<NLK) ) 6 54 

CALL JtTtfY'L'iNfc.JJtS.KNDxr-LO) 6 55 

7v CSNTINu-E 6 56 

SO CB-JT! : L .E 6 57 

C K3EX TABLES '15. CBNTAIN NUDE NJ1BERS 6 SB 

C NS« CBNvERT ~10£ NUMBERS T3 N90E IMCECPS 6 59 

BS 100 lal.MLK 6 60 

JJ»LN3*(i) 6 61 

CALL br.C"( jj. I'.T. JST) 6 62 

^JXUi.JJ 6 63 

JJ'IVJaC) b <„, 

CALL SkCnfJJ, F.T/JST) 6 ^ 

jj«JNOa(I) 6 67 

CALL S-Cm(jJ. J O.JST) b ,,„ 

j\JX<l)"JJ 6 «, 9 

*ij-*n.Ja(I> t 7i 
CALL ShCh(jj, i;.t. JST) 

<\JXt I )oJJ 

loo esntinue 

RETURN 
EV3 



6 


71 


6 


72 


6 


73 


6 


74 


6 


75 



193 



2.6. 1G2 SUBROUTINE L.LGTHF 



kjut: «t: llj'hf 



I.LGTmF LINK CAT* 

S/SfJt'u7l<E LL,<>TMFfL2»LCiTjI*Z,lI«j1SP) ■ 

CS-'hSN /oZLl^f./ lI'^LIISI >»LTN<HT(66)jIAlP*(6*>/01L , '<<6SIj 
J u.-"^(,?i2>, JCiuilicI 
CS^'MBm /SP.-'LT/ J»l.P' J <6o) 
:j«'» VLT/175/ 
C»i.L ^ALi-"(LIM<L>lSjLCT) 
Call jfcTdY(U\m*T,LS»IF'Z) 
C*UL Ut TJY( UlPM/L^iLI^I 
CAUL lieTtfV(J»LPM»L2#M k l) 
MS B «KM»"OLT/103 
wgluR.M 



ta 


1 


62 


3 


62 


3 


i2 


11 


62 


5 


62 


6 


62 


7 


62 


H 


62 


q 


62 


13 


62 


11 


62 


12 


62 


13 



194 



2.6.103 SU BKOUTIN E I OADAT 



RBUTl <E! LBADA1 



LbAD 8FFSETS ANC VARIABLE INTERVALS 



» L6AO„T >• LBAO 9FFSETS AND VARIABLE INTERVALS 
SJBRBUTlNE L6ALJATI INT/JT8) 
DIMENSI8N JTB;3) 

CS^MS.m /BLK7 /AB61H6) I INTHJ;?J) . 1*731(31) 
» <CTC ( 1 7 ) j K3PHI ( 31 ) » SYiiPF* NQL ( 31 ! 
CB'-'MBN /BLK14/ CLENS "TLNG j i.'«LNG 

• DOMVIj JUMY2, CNTLN(3"2) iENI FL , i) i 

• KCL(17>» <CTF(i7)» <cs~ (;.;>• 

• N M VAR(31) , SEMSK'S) , 
C61MBN /BL<18/ C!CTF(3) 

S5GT(121) , 

GGGGU24I 
VKMOII , 

.RKBFSU24), I 



V»INT(12J) 
Ci'8DF(S) 

c vac on 

G4WTP431 1 
GJABCM2*) 

wR<BF(3j ) 
)!124), IEAI31 



LKPTRI64) 
STBYDI6) 
ENINTU96) 
GBwTP(31 ! 
lNTDj(4Si) 



VC(31 >» SPLIT (124 )i 



» C9nTB(62) 
c EN6KF(31) 
• GLA3CM24) 
. SSSS(i2»| 

CBMMBN /u2CO'J 
1 C«RPN<31) 

C6MM8N /PATNG/ A8CSTST(12»)»«BCEND( J8*)»BIAS(31)#DEUT(31)# 
1 S"TABL!12t I.S'BCl 124),SUMACSC(31 ) 

Ce"^8M /HSL'JSS/ SURC8NI124), HLDSPLU). HLDSFF(4), IGATE", IGP.TE", 
1 SFF8Pil2*> 

INTEGEh SUriCON, HLOSPL, HLUQFF, BFFBp 

IF (INT .IT- 0) 36 TB 100 

ICL»2-uTB(l I 

IASF.g.jTBie) 

ICBF.O 

iNS.s.l INT.l i*l 

IN4»4.( INT-1W1 

I1l6«lo«l InT-J >♦! 

CALL UET.3Y(BI»S,INT«IBS) 

IF( IBS.GT.l28) IBS«12S"IBS 

JJ'IABi «IBS 

D9 10 !«1»17 

ITL.I 

!F( ICL.EU.KCL (1)| G8 TS £0 
10 CBNTlNuE 

ITC.8 

ICL.KCL(ITC) 
23 CBNTINuE 

ITC.ITC-1 

CALL PkBYKENTCYC, INT,ITC) 

IFIJJ.lT.OI JJ«JJ*ICL 

IF(JU.GE.ICL) JJ.JJ»ICL 
C ST8KE 8FFSET 

CALL PkB/TCHKBF/ INT, JJ] 
C GET C8iMT-<BLLER TYPE 

CALL GETBY(*3PMl,nT,K3P) 
C GET A PHASE SPLIT 

CALL HALF(S^L!T,lN2.IASP) 
C GET T8TAL TIME N8T PART 8F PHASES 

C*LL GtT8Y(SMTABC» INli + 3» IFX) 
C CBMPOTE AVAILABLE GREEN Tl^E 

JCL.ICL-IFX 
C CBMPUTE A PrtASE GREEN TIME 

1APH.I jCLo I ASP+500 1/1000 
C a phase variable Interval 

CALL GtTBY(VRINT» SN4.IAVJ 
• JAV>Ih|)6*I*V 
C GET SUM BF FlXE^ INTERVALS IN A PHASE 

CALL 3E.Tt)Y( SABC. IN*. IAFX) 
IF( K3P .E3" 2) CALL BETBU SUMACBC, INT, UFA) 

IAPV»lAOH«i«FX 
:: ST3RE A PHASE VARIABLE INTERVAL VALUE 

Call P".byT(F\i'.t, jav.japv) 
CALL jt T BY(S"T»EC IN*, IFV.A) 
I A J»I AP~« IFNA 

C C5 va uTE 9 P-iAS E sffsET 

;BSF»I jBF*JA3 

ifi iBeF. je.icli iB9F.iaeF.ic 

C oET L9«'J tLA3 

CALL 3lTiY( !•}, I\».3, ] L PF) 

jb t» ii:,<:,s;,t])i<3i>«i 

C Trp£ , CB'.T^g LL ER 

30 CSNTlNuE 
C 9 P«ASF 0„RATI9. 

li^n'-jLL-lA"- 

C»LL Jt , BY(S»b t , 1N»->1, IBFxi 

IH *JP .£;• 3) CALL jETBM sj-a 
C C3~""jT E y P-. S r varm^e Inte. = v a l 

I9»V.I r P-,.[3f j 
CALL «TBY(VR1-,T,: .«.l,Ii„) 
J3v.l\;(,»j.,v 
C ST9-E J p,»J t V A^IA = LE INTE-IVAL ^»«' 

CALL P«-JYT(t -I T,^,,,^,. 
KULP* .'.-...) ^ t- 3i 
C*Ll »»irr|A5c>,|vT,!.i 6 E| 
35 [!9NTIn.> 

CA.L P^■JYT| IB,I\» # [A-F) 
CA„ L P. J»T( 1^, is.!,.; , ,Q.jf , 
CAlL P«.BYT(I8i is».c#IC9F) 
C'LL P^BYT(IEAJI^T )v iTB(^! 1 
I'I»3P .EC. 1 >»CLa„CL-ICP~ 
C»lL c «.tiYT( Jj-jT^lNilJ 'jCi ^ 
SE'liR-, 
C TY«E 1 C9NTK«, L L f i r^yc £ 

"I C5--TI\„£ 

C r c, iASE ^o L , t 

L«LL HALF (i'LMi 1NS»1, ICSP) 



MC. I 



lerx) 



9 


1 


9 


? 


9 


3 


S 


* 


9 


5 


9 


t 


S 


1 


9 


S 


9 


9 


9 


10 


9 


11 


9 


1? 


9 


13 


9 


It 


9 


IB 


9 


16 


9 


17 


9 


18 


9 


19 


9 


20 


9 


21 


9 


22 


9 


23 


9 


24 


9 


25 


9 


26 


9 


27 


9 


28 


9 


29 


9 


30 


9 


31 


9 


32 


9 


33 


9 


3« 


9 


35 


9 


36 


9 


37 


9 


38 


9 


s9 


9 


no 


9 


M 


9 


*2 


9 


*3 


9 


»« 


9 


*5 


9 


46 


9 


47 


9 


48 


9 


49 


9 


50 


9 


51 


9 


52 


9 


53 


9 


54 


9 


55 


9 


56 


9 


57 


9 


58 


9 


59 


9 


oC 


9 


61 


9 


6? 


9 


63 


a 


64 


9 


65 


Q 


it 


9 


67 


9 


68 


9 


60 


9 


7- 


9 


M 


9 


7? 


9 


73 


9 


74 


9 


7A 


9 


'6 


9 


77 


9 


7« 


9 


79 


9 


*: 


J 


»• 



•-L 



»■> I ."j 



195 



i " 1 



I'? 

1^3 



call seTfjY(V!»r.T» i\»»a,icv! 

C C P^ASf. v»R1*I?l£ Interval. 

CALL 3ET>iY(SABC,IN»<-e« iCFXI 

If ( ICP,.wTtO) u? T3 »i 
C<-LL P«.3vr us; .T, JCV. (Cfv) 
»! CJNT'.uS 
C S " PHASE »»«I*3LE. ISTFOvti. 
CAUL it -,v;V9I .Ti I >«*|. I iV) 
JbVr!Me»!BV j ; 

CALL S£TtSY(S».BC, 1N»*1jISFX> •> ; ; . 

IB^VBijCM-ibrx , •;"» 

call "»»d»r(fc'<isTj jjy.japv) -. ;: » 

CALL Cil-:TaV(SMTA8C/!V**i»!f ^») J ; •. . 

!CSF=;d8F-HBPn*IF'ja -( ••« 

!P(IC3F •>}£. ICL) IC«'»IC8F«!CL 9 l!» 

35 TB j5 ? !".■> 

C TY c t 2 i. 1 * jTRBLLE- A/C SyEILao ' : : • 

5t> CBNTInlE * !'. a 

CALL liET6Y(JELT»INT/ICLT) ? :■>- 

,'FIIDL '•viT.128) IDLT.128-IJ1.T -> ' ■" 

IC»F»I*8F*IUL7 

If(KSFtLT.O) IC6F»!C9F*:CL 

[FUCSF.IiE.ICL) ICSF.ICeF.IC. 

IFI IDLT. jE.O) (>e T9 30 

lfOF.Icflf'MAD 

G9 T8 30 
C T»PE 3 C9KTHPLLE. E/C 9vE*L*P 
60 C9NTI.MuE 

CALL jF. t oY(L)ElT. INT. 1DLT) 

iFI I0LT-.LT.128I G9 TS 7C 

IDLT»128-I0LT 

Io9ForBBF*H>LT 

IFI IBBF.lT.OI IP.0F.I38F+ICL 

IC?F«I39F 

w re .,.3 

70 CENT [ fiu E 

!C8F«l!Jt)F*I0LT 

oe TS 30 
100 US 13o (M8LU .» i, *HN 
C BET C9NTH8LLER NUM3EP 

ICON a JTBl IHfiLD) 
C IS HL08FF FLAG SET FB 1 * THIS CBNTRBLLFR 

C'LL 3LT8I( H L 09FF, ICBN. ITFM. 0) 

IF (ITU . EC. -/) 88 TB 130 
C hLL>8F:~ IS SET . COMPOTE P9IME" TB 9FF9P AND SURCB". aPPavS 

jVEM : !( ICON. J I « *) • 1 

C DETER1|'4E t-'CLC LENGTH 

CALL QE T BV( CYClO ICON. ITEM) 

JHCYC « 0«5 » KCLtlTEM) 
C EVALUATE PBSSIflLE 6FFSETS FP8M TB CYCLE LENGTH . 1 

hJN » 15000 

39 120 *.1Z« . 1# nCLlITEM) 

I SUM e 

39 lie LTL -1 a 1j« 

CALL GLT3YC SUKCS^, IKTEM+LTeHIj ISURCM 

IF (1Sl«CN -Eg. 0) 3S TB 111" 
C GET CJPSfcNT BFFSET BF NEIGHB8K CBNT B 9LLE^ 

CAUL GETaY(EN8*F, ISURCNj N8F?) 

C SJBTKACT dii-fekencl 

M8FF • N9FF - (<TEM«1) 

I^SuPE DIFFERENCE BETWEEN ♦. o«5 CYCLE LENGTH 
IF (MBFF ,G T . IHCYC) N8FF „ NBFFF „ KCL(ITEH) 
IF (NSFF .L'" -IHCfC) N9FF . N9FFF ♦ KCi.lITEM) 
C SUM DIFFERENCES 
ISUM, c IS0.1 ♦ NBFF 

II J CBNTINuE 

III IF [ISuM >3Ei HJN) :8 TB ISo 
MjN a I SUM 
i-.B r KTEM - 1 

120 cbnt;'„je: 

iT (11« .£Qi 10000) GB TB 130 
CALL PkBYTc ENBFF. ICBN. "9 1 
130 CBNTI.MUE 
IRETUMN 

END 



3 


i j: 


9 


hi 


9 


i »? 


9 


1 J3 


9 


1J» 


3 


135 


9 


13« 


9 


137 


9 


13« 


9 


139 


^ 


1«D 


9 


1M 


9 


i»a 


Q 


1*3 


9 


lit 


9 


1»5 


9 


1H 


9 


1"7 


9 


1»| 


9 


1»9 


9 


15C 


9 


151 


9 


15? 


9 


153 


9 


15» 


9 


155 


q 


156 


9 


157 


9 


158 


9 


159 


9 


ISC 


9 


16! 


9 


162 


9 


163 


9 


16l> 


9 


l«i = 


9 


166 


9 


167 


9 


168 


9 


169 


9 


170 


9 


171 


9 


172 


Q 


173 


9 


17* 


9 


17S 


9 


176 



196 



2.6.104 SUBROUTINE SRCH 



ROUTINE) S^Ch Sf.AKCin 'BUTINE USED BY IIMKO 

C • SKCH SEaUCH rbutine used BY LJNKD 7 1 

SUBROUTINE SRCH(J,I!,M 7 ? 

31-iEMSIHM Il(*5) 7 3 

K«3 7 « 

D9 10 !«1#N , * 7 5 

I F ( 1 1 ( I I.NE-J) G9 19 10 7 6 

«■! 7 7 

. _S9.T8...i:J. ; 7 8 

10 CONTINUE 7 9 

20 J"< 7 10 

KETUKu 7 11 

END 7 1? 



197 



2.6. 105 ROUTINE INTFC 



"BJTInE: IwTFC 



INTFC 

sJ3«9uTI-.E INT'C 
INTERFACE ROUTINE 

hit* 'jf»/°v»os 

C9"'M9n ZoKlfC/ I\TF,NINTFC,N3WPI» INTN 
C?"M9\/-ll.13/ Pv[26J).PS(262) 

:9"m.s-. /Bnii/ cictf is) 

CJJ9F(31 ] 

u(5GG(12»> 
TK-131 I 



I\T\JtL|MlV 



• C3NTB(62) 

• 3lABCi12«> 

• SSSSl i2») 
C9""-.f) . /3L* 

<LTC(l7>,* 



ct9df< t 
CyClCO 
Q».TP(3 
GJASCd 
«SKt)F|3 
7 /'fill 116) > IST-I (31 ] 

3»«I (31 XSTuPF, <5 t (31 ) 



C9""f"3\ /dL<l»/ CLEN3 , OTLNG 

• 3J^Yl, JU'^'2, CNTlS(372),E\TTL(5>» 

• <CL<17)» <CTF(17)« KCSM17), 

. N*vAR(3l) , SE'S<(8) , VSIST (1 

C8MM8N /o2^IN*/ Ll-.<L(131 I.L! .<-T(t, 6 ,, 

1 ^\Blrb2),KSLSl (E> 
C9i-9m /J2C"',T/ »R<eFS(12»>, fM12»>, IE 

1 CRPnOI) 
DI-ENS19. |-i!f(5), M NTFC <5 > , SGRPI ( 5 > 
3 1 -ENS 1 8N jT(2),I^T(7)>A(e),{^(2),is (( 
31 -ENS 19. r'TMi»),lNT-,e(l»), L l\»M a ,, 
C9MI-.8', /BL*LV5/ lEvL54,SRT\5,e\D5,En-c 
InTEGE- SRT\5,£\D5,ESDSl,BPT!HE,ePTU 



JATAXQ/OOl/ 
39 530 I i 1,5 



, E 

, j 

, ! 

, c 



231 
!»JP- 



6«>. 
1, '! 



-CTK, 



\|\r 

9.T? 
NTrj u 

31 ) 



(?) 



( HI 
(•90) 

(31 I 
(»9t) 



1P( I'-Tt ( I I.ED. 



9BTAIN T1K £ !V CYCLE LEM0T>- F8R T.5 ['.TERFAC! .'j 



CYCLE LENGTH 4'.^ T]"E I NTS CYCLE LEV.'" f9- Sj3\[I,«i< 

1ST a INTN(NGRPI ( I ) ) 
CALL JtTdYltNTCYC, INT, JNT) 
CVCoKCi..(JNT*l )/2 
ECVC<CTC(jNT*l)/2 

EXTRAPOLATE TI"-E T9 M1JP91-T «F S I i 
EC'C • ECYC *6C.» BPTI-'E/S.O 
MBJULB EXTRAPOLATED TI1E 
CALL PtRie^lECTCO.'CVCCYL) 



SETTING 5wR»T|o k 



CCLE LENGTH and TIME IN CYCLE F9R SuBNET.HR* l«l 

INT i INTNJINQRP! ( I ) ) 

CALL (lETdVitv. LVC, INT, JNT) 

CTC2.XCL! J.T*1 )/2 

iCTC2«^CTC( «HT»1 )/2 

EXTRAPOLATE TIME T9 1J3P9INT 9F SIGNAL SETTING Deration 

EC»C2 • ECTC2 ♦ 60. > SPTJWE /2.J 

M8JUL8 r-'SAPBLATED TIME 

CALL PtRie5(ECTC2,v,,,CYC2,CYca) 

9STAIN BFFSET DATA FdR INTtRFA.CE 

3JMADL «0> 
SU^A.J. 

BBTAIN PATTERN 8FFSETS F9R ImTERFACING INTERSECT 19 \S IN SUU'ET 

INUX • NGRPI ( I ) "1 

NB9x • NlNTf-C(I) 

Dft *JJ J » 1 , N88X 

INJX s IN0« * 1 

INT ■> INTN2IINUX) 

CALL MACA1 INT, IRT) 

X9FS2 • A-PHSE 8FFSET 

X3FS2 . IRT < 1 > 

A9FSBS « IRTI2) 

SUBTRACT EXTRAP9LATED TIME FR9M £NTRy BffSET THEN M8DUL8 

X8FS2 « X9FS? - ECYC2 

CALL PERI95I X8FS2,0.,CYC2,CYC2) 

C8"'PUT{ BFFSET RELATIVE TB SuBNETbiSRk 1 CYCLE LENGTH 

IFIX9FS2.GT.CYC ) X0FS2«X8FS2.CYC 



OBTAIN 8FFSETS F8R SUBN£TwBR< I INTERSECTI8NS 

far r PATTERN 9FFSETS 

INT .■ INTNl iNDx) 

CALL MACA( INT, IRTI 

XBFS A-PHASE OFFSET 

X8FS ■ IRTI1 ) 

X9FSH . IRTI2) 

C8MPUTE IDtALUED 9FFSETS 

INOP • I»<DX "2 - 2 

38 F8R APPROACHING AND DEPARTING LINxS 

38 330 K «1<2 

INDL • INDP ♦ K 



13 


1 


10 


? 


13 


3 


ID 


k 


13 


c 


13 


i 


i: 


7 


i; 


B 


1 ~ 


9 


13 


1 D 


13 


11 


ID 


1? 


i: 


13 


ID 


1 <» 


1 D 


15 


ID 


16 


13 


17 



l; 


3 C 


1; 


?9 


13 


*: 


ID 


M 


ID 


A? 


n 


«>3 


ID 


s» 


ID 


"»5 


10 


if, 


1*1 ID 


!>7 


ID 


».? 


10 


6 9 


10 


70 


10 


71 


10 


7? 


10 


73 


10 


7» 


10 


?5 


13 


76 


ID 


77 


10 


78 


10 


79 


10 


80 


10 


81 


10 


*? 


10 


83 


10 


SO 


10 


85 


10 


86 


10 


87 


10 


88 


10 


89 


10 


90 


10 


91 


10 


92 


10 


93 


10 


9» 


10 


95 


10 


96 


10 


97 


10 


98 



198 



ILNK ■ LIN< N < I^DL) 

ir( IlnkiEQiO)Q8 TP 300 

CALL LlGTHF(1L-«»L&Th,IFZE.L1MF,MSP) 

CALL ofMYIlilL^K' ILNK* !LN<1) 

C»LL Lu'19E5t IL ; *K1. ! V9L. ISPEE", I SCO 

]F( IP*3 .NE- 1IS0TU 10 

IFtPvl 1L : <K1 ' .uT« ollVUL'PVIIL^Kl) 

IFIPSI lLNKll .ST. j)1SPEE0.P3(I!-^<11 

Cb'JTltiuE 

*9L ■ IV9L 

SPEED ■ ISPEED 

1-LlM ■ LIfP 

A(<) . </9L • ELI" • XD 

Fi/JTH » LGTH 

Z9IK) a PL^MT / SPEED 

1FZE ■ ^9D( IFZE,3) 

IF(K.EU.l.A*D.IF«.EQ.l) X9FS . X8FSB 

IFCK.Ei«'E»A*D.lFZE.Ea.l) XBFS2 ■ XEFSBS 

3-1. ■ *9FS2 - XRES 

IF(K.E!J»2) DEL » -0EL 

XSFSP ■ iat<) * BEL 

FL9 • -CC/?' 

Frtl .* CYC/g» 

CALL SH"U~95< «SfSP<t'LD»'" h 'I<C , 'C) 

S.ilADL » S^ADI. + *!*> • x ' Jf S p 

3j"a » Sul"A <■ «(K) 

CS^T1'._E 

:?NTI ,jE 

IMEKFaCE pA'^a'F'E^ 

ifisl-,. i\f. o.riiA°su*AX/s.; , '« 





OE'E** ! iE C'^C SR9 u p S 


!»•. Sjt) 




]C9kEli l»3 






09 TBU01<c0?»2;3j,2G'> 


j205s«.l 


231 


1C9RE1 l ).* 
L5 TB = 53 




Sji 


!ORE<l).3 
j9 TB >50 




<Jj3 


ICSREl : )■>? 

09 79 £5; 




20" 


IC H R£( • I--1 
j'.< Y9 ?<i- 




;^3 


I C^Kt C i (=6 




?30 


C3MI\„E 





: 33tai . i jT.;-<SEC7ir« -.j-be»s • ■■. sjbset-"'^^ i«i 

39 8C-J L«1.B 

JF( Kl-tlD't-.'-m T9 ?3C 

i i>kf . ic9«E!l: 

CALL oLTIMi lioRP. ISA) 

35 ICC "! « i .«-j 

IF'. IS.A l - 1 .c J.; ) o9 T-j aco 
; uEI A-F-SE BlVaEl s e* t»C u ! SYSSSECT 1-9'- 

I\1FS . I \,.<-- 1 

CALL 'aCA( ISTEK, Ull 

39 S3 *LP • 1.3 

*9f» « H1[<uPI ♦ 3 •&'-• • 9=YI"E/e. 

CALL Pf:^IB5(x9> A.3«CYCc,C:?> 

I9fA(< L P) • x9^ A ».5 
53 CSNTI'.^E 

CALL P U TE9FF( IiYfc3,I9FA1 
103 CSMTlNuE 
200 CSSTI'.^E 
5CJ CS\TI....,E 

3ETUK . 



10 


99 


10 


130 


10 


101 


10 


102 


10 


103 


10 


ion 


10 


105 


13 


136 


13 


137 


10 


108 


13 


1C9 


10 


110 


10 


111 


10 


11? 


10 


113 


10 


11» 


10 


115 


10 


116 


lo 


117 


10 


119 


10 


119 


10 


120 


13 


121 


10 


12? 


10 


123 


so 


18* 


10 


125 


10 


rib 


13 


1'7 


13 


i?? 


13 


129 


13 


:s: 


13 


in 


U 


11? 


13 


133 


10 


13* 


10 


135 


13 


136 


13 


137 


10 


11? 


10 


U9 


13 


]„- 


13 


i«i 


; 3 


i»? 


i: 


1 "3 


i: 


1**j» 


I; 


1*5 


i: 


;•?> 


1 3 


!•? 


l: 


1»« 


l: 


l»<t 


\ - 


It" 


l: 


15 i 


i: 


19? 


13 


153 


1 3 


lo. 


i : 


1* = 


l . 


1 it 


' i 


117 


t ; 


It? 


i: 


1*9 


l: 


'. <■ " 



199 



2. 6. 106 SUBROUTINE GETINT 



C • 3ET1N.T i» 1 

SUBROUTINE liETI^T(MUReuPij) u ? 

DI">£NSI9N JU5) 1» 3 

Ca^MBM /iiZCAT/ GCS^T(31),firATS! (2)<'JR S- 9(2),-.CI3RP(?),\?3Cl<S)< 1* 4 

I MICIGP(2)»NCRjNL»NGHPS 1* 5 

C SETIM EXTRACTS TH£ MjOBOP I \TER3ECT I OSS FROM THE GC?* T A&RAY «M 1« «, 

C T-rt INTERSECTION NU~3£HS IN T«E j ARRAY 1» 7 

C THE i v JE* F6H THj- START 3F T«E NGSfiUP INTERSECTION NJ«:tERS lb L* 1 » 5 

CALL jtTtJYI'iCNTSliMjPBUP.L) l* 9 

C 1 IS THE Nu'-'oE'? Of I^TE«SEtT!S.\S Is NGRBu? 1* tO 

CALL uETSYcNCIGH", \3490P.H| 1» 11 

C "UT T^E M INTERSECTION NU'g-ws IN THr j ARRAY 1» 1 g 

3B 5 ! ■ ! »''■■> It 13 

j(l> • 3 1* It 

5 CSnTINlE 1» 15 

» 1) Iilil 1*16 

CALL of T'iYluCS ■-T.L*:. J' 1 : I 1 » 17 

U CSNTINuE . 1* 18 

HE TO"'; 1« 19 

:Si ; J 1* ?0 



200 



2.6.107 SUBROUTINE MAC A 



S'JUTIne: 



» ^ACA 

SjBREjTl'lf n*C»( INT.I10T) 

01"E^SieJ 1»UY(?) 

CB^MSN /tiL<7 /*at»S < 161 i 1N7HK31I . INT?!(31I 

• KCTCl 17>,<JPHI (31 I.STUPf,\'JL(3J ) 

CB^MBN /BLKl*/ CLE^ii < DTLNS » CMLNi 

• Durri, DUi»8» CMLM372),e.'vtfl(S)» 
« KCLU7), <CTF(17), KCSF(17), 

• N*V*K(31> » SEMS<(8) . VKINT|l?3) ' LKPTR(6«1 

CeiMBN /G?C»NT/ »RXSFS(1Z*)« 19 I 121 ! , IEA ( 3l I /ESTCVC 1 3l I . SPL ! T I \it> I , 
1 CSP..I31) 
IDx.t.c INT-1 I 
OS 13 I«l#3 

jox.iox+i 

CALL OtTUYl 18/ JD*» I6F ) 

I9J7! I >«I>)F/2 
la CBNTINuE 

CALL (it TBV(tNTCYC, iM, I I ) 

I8UT(5)«KClI I I )/2 

CALL 3ETBY(K3PHI,IlvT, lj) 

ISUT(«)a<lJ 

!D«»2»< INT-S I 

OS SO 1.1.2 

JOX«JOX*I 

CALL MALElSPLIT/JDx.iS") 

I8UTI I«5).ISP 
20 C9"<TINL'E 

9ETuS\ 

EVU 



12 


1 


12 


? 


12 


3 


12 


M, 


12 


5 


12 


6 


12 


7 


12 


« 


12 


9 


12 


10 


12 


11 


12 


1? 


12 


13 


12 


It 


12 


1? 


12 


16 


12 


17 


12 


If 


12 


19 


12 


20 


12 


?1 


12 


22 


12 


23 


12 


21 


12 


?5 


12 


26 


12 


27 


12 


28 


12 


29 



201 



2. 6. 108 SUBROUTINE PERIG5 



C 

SJ*«B;jTImE ' > F=(1')?(a.LLC/JLC,Cv 

*E»L LLC 
! CS^TI'iuE 

IFIx-LlC)3/S.3 
2 x.»*c 

i>9 TS i 
i CBNTt'.uE 

If (X-uuC) 5/5.1, 
* »>X.CY 

G9 TB a 
5 C3^TI-,uE 

^E'UR\ 

E\J 



57 


1 


57 


5 


57 


3 


57 


4 


57 


5 


57 


6 


57 


7 


57 


a 


57 


9 


57 


15 


57 


11 


57 


12 


57 


13 


57 


1* 


57 


15 



202 



2.6.109 SUBROUTINE PUTEOFF 



b^utine; putesff 



HuTEflFF " \ 

SJ^RBuTlNE »'jTE8FF( INT»E9FFS> 



InUGE* CLC»CY»E8FFA,EBFFS<3)»B! 



13 3 



C*LL GETSYldlAS, INT.BI ) 13 

ENTRvBFFSLT . THE C6NTR8LLFR » Phase 8FFSET . THE CS'.T^BlLE" B!a 13 

E8FFA . 2.EBFFSI1) ♦ Bl 13 

IF(E6FF».LT<CY) G9 T8 20 13 



CSlhBN /G2CBNT/ i.RKBFS(12*)»I9(12»)»IEA(31)»ENTCVCl3l>»SPLIT(12»li 13 

1 CGRP':{ 31 > 13 5 

C9- , f8\ /paTng/ *BCSTRT(12»)»ABCE'')0(l?*)»B!*S(311»OEUT(3l>i 13 * 

1 S*'TABC(12'.)»SAeC( 12«0»SUHACRC(31I 13 

C9*MB\i /<)L».7 /(.BUIllfc) < IMHI C31 I « INT2II31) . 13 

• KCTCH7), <3PH(31I» STUPF. \0L<31) 13 ' 
CB^MB'. /BLK1»/ CLENo . DTLNG » C^LNG « 13 It) 

• O'JHVi, UUM»2, CNYLN(37£)»ENYFL(5)« 13 11 

• KCL(17)j KCTFI17), KCSFI17), 13 1? 
. ".iVANiSlI , SE"SK|8) , VRINT.M23) J IKPT«C»») 13 13 

CO-'neN /SUM?/ CICTF(g) , CTBt)F(l) » STbYD(i) » 13 1» 

• CBNT9|62) » CURBFI31I , CYCLClSl) I ENINTU9*! » 13 15 

• EN6FF(31> i GG5T(12«I . GAwTP(31| » SB'aTPCSH * 13 16 
. GLA8C<12») » GGuGliai! . GUABCMSM « !NT0U(»96> * 13 17 

• SSSS(l2») i K1-I3JI , «RKeF(31) 13 II 
C ^LTEOFF MULTIPLIES THE 3 VALUES BF Th£ SECOND ARGUHFNT 8Y T*8, S 13 19 
C TMt SCALED VALuES IN The IB ARRAY, C9HPUTES The VALUE Br TMF. 13 ?; 
C ENTRY 8FFSFT, AND STBRES Th£ ENTRY 9FFSET VALUE IS ThE FN6FF A 13 21 
C SCALE 8FFSETS BY T«8 AND STB«E THEM IN THE 18 ARRAY 13 2? 

IP9SN ■ »•( INT-1 I 13 11 

N.3 13 ?» 

CALL 3tTBY(<3PH,INT»K3PHT) 13 25 

IF(k3PhT.eq.oi n.2 13 26 

D9 10 I«1.N 13 27 

CALL PTBYII8. 1PBSN.,I»2»EBFFS(I > ) 13 2« 

10 C9NTI\oE 13 29 

CALL StTdYIENTLYC, INT.CLC) 13 3; 

CY«KCLlCLC*l ) 13 31 

C»LL GETSYldlAS, INT.BI ) 13 3» 

33 

3k 

35 

EBFFA . E9F>A - CY 13 36 

20 C9NTI..IUE 13 37 

CALL GfcTdYl IS, IP8Sn*», IF8T) 13 J« 

C ENTER Thj a PHASE ENTRY 9FFSET l\ the E'-BFF adhay, i^L^SS (I'^O 13 39 

C IFOT NBT E<JU*L 0. IN *HI C H CASE THE g PHASE BFFStT IS E' TE^ED 13 >0 

C E'NBFF ARRAY (THE LATTE* CASE IS re c INTERSECTIONS <■- fRE TH£ B 13 h\ 

C BEoINS AT INTERVAL 1) 13 »? 

1F(k3PhT.EJ>0.ANO.IF8T.NE.O) EBFFA • ?«E9FFS(2) 13 "3 

CALL PTd"(ENSF> , INT. EBFFA) 13 »» 

RETURN 13 "5 

ENU 13 »6 



203 



2.6.110 ROUTIN E TRN PAR 



RSUTl JL! TRNPA» 



TRNP*R 

SU^HejTlNF TRNPAR 
C9-""t)N ZoL<lS/ CICTFO) 

• C»NT;m62> / CUR8F<31) 

• enbffisi) . sasTaE 1 *) 

• GLAiJClliit) < a<3GG<12<t> 
. SSSSl 12») , TK.-I31 ) 

CS^MSN /aL<7 /Aijt,! ( 16| 



CT93F,f) , ST-jy.lm 

CYClC<31i » EMNM»96i 

GA«/TRf 31 I i 33.TPI31 I 

Gj»bCli?«l . lNTCof.96> 
»R<8F,11 | 

INTHIOJi < I-^iKllI . 



• XLTCl 17I...3PHI (3i ) . STuPF, NS L ( 31 I 
CS^na-j /flL<l»/ CLENG , OTLNG C^lNo 

• DJMY1. D0MY2. CNTLN(372)iENTFL(5)« 

• KCLI17). <0TF(17), «CSF<17>, 

• \1vAh(31) i S£r.SKH> , VRlNT(123l / 1-KPT^{- ) «| 

C9irBN /j2c b ^T/ «anBFS(l?»lj' , )(lS»)»!E»(3i)»EV T CVC<3l I » SPLIT (IB* 
1 CBRPM31) 
CBinei: /SECriw ISECT(i) 

DIiE^SlSN 1NTM.'(»5)iJT(lI,JBi7I, IE8FFI4 ) 
M8IM a & 
SjlDEL d 0. 

D8 F8R ALL LBRE ORft'JPS 
09 501; I»l»* 
!F( ISECT( 1 ).EQ"?> OB T9 SO"* 

SET INTEMSECTISM NUMBERS IN CB'E QR»uP 

CALL GgTINTI I, I-TNOI 

9BTAIN TI«L IM9 CVCLE AND EMTRV CVCLf LENGTH 

I J a I'.TVBIll 

CALL GETlYlfcNYCYC, [J/ Jl I 

tCCLE.<CL(dWl)/2 

ENTT.nr.TCI jl*l >/2»10 

C»LL PfcRI95(ENTT,3..ECYCLE.ECYCLE] 

DB *JO J»l«»5 

IF( |NT,\8< Jl-ECo) uB TO 5C3 

GET *Bk<IN0 8FFSET 

CALL uETiY(*RKBF, INTNSI J), I«TN) 

»,RKF0sIRTN/2 

LET »9k<IN.j CYCLE LENGTIf AND TI*E IN CYCLE 

I j ■ Ji-TNBU) 

CALL UETBYlLYCLC. I J. Jl) 

*C Y CLE»<CL(Jl*ll/2 

«R«T«<CTC( jl+i)/2 

ADJ 10 SEC9NDS TB TIME In CYCLE LENStm AND M8DUL8 

»R»T s iRKT ♦ 10« 

CALL PERI85(*H«T»o«' "CYCLE. KCYCLE) 

DELTA bETliCEN "BRKING CYCLE TIME * J r , AND ".BRKIVG OFFSET 

kRK6FP.*-(KT"«RAFB 

CALL PERIBSI*Ri«8FP#0»j«CVCLE»WCVClE| 



21 
2? 
23 
2» 



?7 

2B 
29 
3^ 
31 
32 
33 
3A 
36 
36 
37 
39 
39 



GE' Entry sffset 

CALL «AC«(IJ ( Jt<) 

IRTN m JB(l) 

ENTBF i IRTN 

DELTA 6ET*EEN ENTRY CYCLE TImf. ♦ 10 AND ENTRY 8FFSET 

ENIBFP • ENTT - LNTBF 

CALL °ERIB5(ENTeFP,0..ECYCLE,ECYCLE) 

SJ~ DEL 8FFSETS ANQ NUMBER 9F INTERSECT I9NS 
DELBFF • hRKSFP - E*TBFP 

SiTCEL « SuMDEL ♦ l>tLB»-f 
S3 INT e MB I NT t 1 

• ' CSMTlNiiE 
CSNT1\. E 



bo 
SI 
b? 
53 
b» 
55 
56 
57 



63 
61 
6? 
63 



CB V 



jTl TRANSITtti't PARAMETER 



600 

c 



'F(\9| ,T .-jT. :j)A-<IN.SJ M 3EU/N9|NT 

' ■-5III9N PARA-LTER Tj all ENTRy n FFS£TS 

600 U1.6 

li"(ISECT( I |.E3«0) GB TB 80: 

3E' INTERSECTION N^f-aER IN CeRE GRSjp 
CALL JtTINTI I, INTN8I 

BBTAIM Entry C'ClE LENoT- 
IJ • I >Tr,8(l I 
CALL jETjYiE'.TLYC. IJ, Jl I 
ECYCLF.i<CL( JU1I/2 

GET ENTRY 9FFSET FPR £ACm I VTrRSECT It»\ 

.08 700 J • li*b 
IF( |\TK9(u)«EQO) GB T9 800 
U«IMN8(j) 

CALL MaCA(1J,jo) 
D9 6JJ «Jal.3 
E9FF . Jd(<<J) 
£8»F • E9FF » ai-IM 
-I80ULB 9FFSET 

C'LL PtRI8b(EBFF,o.,ECYCLE.ECYCLE) 
IEBFF(K<J) • F.SFF ♦ ,5 
C9NT1 *UE 



7J 
7? 
73 
>t 
7? 
76 
77 
78 



204 



Sf»RE ENTRY 8FFSET 

■ I Ij< !EefF) 





CALL Po'EHF 


703 


C9NTI\uE 


RUJ 


C9MI-J..E 



205 



Ill SUBROUTINE GETBI, 
ALSO INCLUDES: 



LISTING 



2.6. 112 
2.6. 113 
2.6. 114 
2.6. 117 

2.6. 118 

2.6. 119 

2.6. 120 



SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 



GETBY 

HALF 

PKBIT 

PTBI 

PTBY 

PTHLF 

UN BIT 



R'JUTlNE ! &tT»Y»PTBY»3ETBIjPTaijhALFjPTHt_F»UNBlTiP<BIT 



PTAB 

PTAB1 

CjETBY 



JETIv/PTc 
T1TLL 



PA^E 

OEF 

DEF 

DEF 

def 

DEF 
DEF 
DEF 
OEF 

mef 

PSYS 

SYSTEM 

PAut 

BSuNO 

OATA 

DATA,? 

WES 

OATA 

LCI 

Pb..»0 

Xa# Rl 

Lw,f»2 

BJEZ 

L«»«2 

AND/K2 

L«»R3 

B3tZ 

L*»R3 

Anu,R3 

Ln,R* 

Bit 2 

l»,Xh 

ANG*RJ* 
Lw,R5 
AI.B5 
Ld,> f :7 

ST...R7 

LCI 

PLMJO 

A*',R15 

B 

PAoE 

TITLE 



. SETbl,PT8I»HALF,PT«LF,l^RIT,PKFJIT 
••••• RBuTtNE r-.ETBY » r,ET BYTE .. 

SUBROUTINE SETbY(X,!,Y| 

X.tfYTE STRING 

I. BYTE INDEX 

Y. OUTPUT VARIABLI 



oETBY 
PTBY 
GFTBI 
PTBI 

HALF 
PTMLf 
UNBIT 
PKBIT 

"ASK 

1 

UTCSRi 



PTAB 

RlS 

O.Ri 

• ♦2 

• R2 

»X' 1FFFF I 

1,»1 

%*2 

• RJ 

• x 1 IFFTFi 
2,R1 

t*2 

• R» 
■V'IFFFF' 

• R3 
•1 

•R2«-*5 
«F*» 



PTAB 
«11 
•RlS 



ADDRESS 8F x 



HAS* 9UT 8P CtfDE 
ADDRESS 8F I 



MASK BUT 8P C6DE 
ADDRESS 8F Y 



1ASK BUT 8P C9DE 

RobJ 

INDFX NUMBER 

SET BYTE 

stbre in y fsr return 



return 



'•••• R8UTINE PTBY • Pack BYTE 

SUBR8UTINE PTBV(X,I/Y) 

X.BVTE STRING 

I.BYTE INDEX 

Y. INPUT VRMtLE 



page 






LCI- 


c 




PSF »J 


PTAB 




X«,"i 


-!'-> 




L/,,R2 


; » ^i 


ADDRESS OF x 


BjE2 


*«2 




L«,R2 


• R? 




am:.,r? 


• X'lFFFT' 


MASK BUT 8P CBDE 


Lx.RJ 


IjRl 


ADDRESS BF I 


sat 2 


.♦2 




Ifc.RS 


• RJ 




A lb I -i.' 


•X' !FFFF' 


•1ASK 8JT 9P CBOE 


L*»R- 


c-*I 


ADDRESS BF Y 


BotZ 


a .2 




L»,R» 


OR* 




A .w<» 


■ X ' If FFF< 


MASK SOT »P CPDE 


L«.*7 


• <>* 


K7.Y 


L-i^b 


• ->.> 


R3=I 


AI,R5 


•1 


INDEX NUMBER 


ST, .'-J7 


"5£,«5 


STBRC BYTE 


.CI 


r. 




°L'-<0 


PTAS 




A.n,RJ5 


RJ* 





5 


1 


S 


2 


5 


3 


5 


it 


5 


5 


5 


6 


5 


7 


S 


S 


5 


9 


5 


10 


5 


11 


5 


IS 


5 


13 


5 


1* 


5 


15 


5 


It 


5 


17 


5 


IS 


5 


19 


5 


20 


5 


21 


S 


2? 


5 


23 


S 


24 


5 


?5 


5 


2b 


5 


27 


5 


21 


S 


29 


5 


30 


5 


31 


5 


32 


5 


33 


5 


3» 


5 


35 


5 


36 


B 


37 


5 


35 


5 


39 


5 


10 


5 


"1 


5 


»a 


S 


»3 


5 


•« 


S 


*5 


5 


• 6 


S 


<>7 


5 


48 


5 


»9 


S 


50 


5 


SI 


5 


52 


S 


S3 


5 


5* 


5 


55 


5 


56 


5 


57 


5 


58 


5 


59 


D 


60 


5 


61 


5 


62 


5 


63 


5 


61, 


5 


65 


S 


66 


s 


67 


5 


68 


5 


69 


s 


70 


5 


71 


5 


72 


5 


73 


5 


7» 


5 


75 


5 


76 


5 


77 


s 


78 


5 


79 



206 



PAbE 

TITLE. 



#RJS RETURN 

'•«•• K9UTINE. HALF • SET HALFwBRD »•• 

SUBR9UTINE HALF (X. I.V) 
»>HALF*ORD STRJNb 
IshalFwSRD INOEx 
Y.HUTPUT VARIABLE 



°A U E 






LCi 







PSrl.O 


PTAB 




Xn.Rl 


R15 




Lii.HS 


9.R1 


AOnRESS BF X 


BSEZ 


»*2 




L-.R2 


• R2 




•NU.R2 


JX'lFFFF' 


«A5K 8UT 8P CBDE 


L..R3 


1»«1 


AD0RE3S 9F I 


BGE2 


e»2 




L».R3 


•S3 




AND.R3 


.a'KFFF' 


MASK BUT 9P CBDE 


L«.R4 


2.R1 


ADDRESS Of Y 


BSE I 


**Z 




L-.»» 


»R» 




AMU.R4 


sX'IFFFF' 


MASK BUT BP C8DE 


LW,R5 


.93 


RSs! 


AI.R5 


-1 


INDEX NUMBER 


Lh,<<7 


»R2j=<5 


RToWALFWBRD 


STa.R7 


»R<! 


VoR7 


LCI 







PLh;0 


PT*9 




AW.R15 


Hll 




B 


*M5 


RETURN 


PAbE 






TITLE 


' »«•« R9UTINE 


PTHLF * PACK KALf^BRD 



SUbRBUTINE PTH L F( X.IiY) 
X.HALFwSRD STRING 
IiHALFwBRD INOfX 
V. INPUT VARIAbi f 



PAuE 








LCI 









PSM.O 


PTAB 






Xw.Rl 


RlS 






L*,R2 


O.Rl 




ADDRESS OF X 


aotz 


*+2 






L-.R2 


•R2 






ANli.RJ 


•X'IFFFF' 




M15K BUT BP CBDE 


L.»,R3 


.1.R1 




ADDRESS 9F I 


BGEZ 


**2 






L»,R3 


• P3 






Amu.R3 


■X'IFFFF' 




mask but sp cdDE 


L»,R4 


2.R1 




ADDRESS SF V 


tGEZ 


• ♦2 






L*.R» 


• R<+ 






».«u»1« 


•X'IFFFF' 




MASK BuT 6F CBDE 


L«.R5 


•R3 




R5,j 


AI,R5 


•1 




INDEX NUMBER 


L*«R7 


• R4 




R7oV 


ST".R7 


•R2.R5 




ST8RE HALF«8R0 


LCI 









PLM.O 


PTAB 






A-..R15 


*14 




RESTPRt "EGISTER 


B 


•R15 




RETURN 


TITLE 


'••»« R8UTIVE 


GE T BIT» GE T BIT • •••' 




SIJBP8UTINE GETfll (X. 


I<T, Jl 




A.UIT STRING 








UfalT INDEX 








V.9UTPUT VARIABLE 






J. INTERLEAVED 


FLAG 




PAbE 








LCI 









PS,<«0 


PTAS 






Xw.Rl 


RlS 






L*.R11 


C.-.R1 




ADORFSS BF X 


BGtZ 


*.2 






L"»R11 


•RU 






A'4u/Rll 


.X'IFFFF' 




MASK BUT »P C3DE 


LW,Rl« 


l.Rl 




ADDRESS 8F I 


bgez 


**2 






L*»R14 


»R14 






ANu»Rl» 


•X' 1FFFF' 




MASK BuT BP CBDE 


L»,hl2 


2.R1 




ADDRESS BF V 


B5EZ 


6+2 






L".R12 


•K12 






AN„»HJ? 


HX'IFPFF' 




MASK BUT BP C6CE 


L*,R13 


3.R1 




'DDRESS BF J 


BSE/ 


0*2 






La,R13 


• R13 






A'.D.RI j 


•X'IFFFF' 




MASK BUT BP CBDE 


L«.«i 


• PI'S 






AI.R2 


•1 




INDEX NUMBER 


L«.RiO 


«R13 




INTERLEAVED FLAG 


L„«o 


R2 






SLS<R6 


e5 




*8RD INDEX 


Ln,R7 


R6 




K8RD INDEX 


CI. RIO 


1 






BNE 


»«2 




NBT INTERLEAVED 


Ak,R7 


R7 




►BRO INDEX. *8RD 


SLS.R6 


o 






S».R6 


«? 






LCk.R6 


«6 




MASK W8RD INUE* 


L»»R15 


MASK.R6 







SO 

81 

8? 

83 

8« 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

10* 

10b 

106 

107 

ios; 

10S 



5 


110 


5 


111 


6 


11? 


5 


113 


5 


114 


5 


115 


5 


116 


5 


117 


5 


lis 


5 


119 


5 


120 


S 


121 


5 


122 


5 


123 


5 


121 


5 


125 


5 


126 


S 


127 


5 


128 


5 


129 


5 


130 


5 


131 


5 


132 


'5 


133 


5 


134 


5 


135 


5 


136 


5 


137 


5 


139 


5 


139 


S 


140 


s 


141 


5 


142 


5 


143 


5 


14<, 


5 


145 


s 


146 


5 


147 


5 


148 


5 


149 


5 


150 


5 


1M 


5 


1S2 


5 


153 


5 


154 


5 


155 


5 


156 


5 


157 


5 


158 


5 


159 


5 


160 


5 


161 


5 


162 


5 


163 


5 


164 


5 


165 


5 


166 


S 


167 


s 


168 


s 


169 


5 


170 


5 


171 


5 


17? 


S 


173 


5 


m 


5 


175 


5 


176 


5 


177 


5 


17P 


5 


179 


5 


180 


5 


181 


5 


182 


5 


1*3 


5 


184 


5 


185 



207 



LBBP 



LS.R15 


•rii«b7 


AI.R4 


•31 


SLS«R15 


5/W6 


ST„/H|5 


•R12 


LCI 


~ 


PL1--J 


PTAB 


A*,R15 


«1» 


o 


•sis 


PA.,E 




TITLE 


'•••• a 



GET BIT 

STSRE IN. V FBR RFT'uRN 



LETUPS 
• ••• R8lTInE pTbl • PACK BIT •»••• 

• SU8RSUTINE HTBI (X/I.V.J) 

• X-BIT STJUMa 

• MBIT IMJEX 

• Y.INPU7 VARIA3LL 

P*uE 

PTCI LCI S 

PSl i»0 PTAB 

X«,R1 HIS 

1-«*<*1 1 0<Rl ADDRESS BF X 

BjEZ *<-? 

L».Rii «r:i 

ANL>»R11 «X'lFFFFt MASK BUT 9P CBDE 

L»,Rl» 1,R1 ADDRESS Br I 

bsez *»? 

L».R1<> "Rl" 

Af.'J/RJ* •X'JFFFF 1 MASK BUT 8P CBDE 

L»«R12 2»»1 ADDRESS 9F V 

BSEZ » + 2 

1*1*13 «R12 

A JC««12 •x'IFFFF' MASK 8uT 8P C8DE 

L«,«13 3,R1 ADDRESS 8F J 

BiEZ »*2 

LA.R13 »R13 

ANu»»13 .x'lFFFF' "ASK BUT 9P C90E 

L«»R2 •&!» 

A1.R2 «J INDEX NUMBER 

LK.RIO »PJ3 INTFRLEAVED FI.AG 

L«.Rft K? 

SLS.Rfc -5 *BRS INDEX 

L...R7 *6 *8RD INDEX 

CI, RlO 1 

BNE *»2 N8T INTERLEAVED 

A*jR7 ?7 INTERLEAVED 

SLS*S6 i 

SwjS6 «£ 

LCw/R6 Ri 

Lw,RJ5 maSK.R* 

L/I.R1* 'RIS 

AI.R6 »3S 

LC*'R6 Rfc 

SLS.Rl* 0,H6 SMITT TJ C3RRECT PBSITTS* 

STS.Rl* «R11»R7 ST8RE BIT 

LCI 

PLM»0 FTAB 

AW/R15 HI* 

B «R1S 

PauE 

TITLE !•••• R8UTINE UNBIT » UNPACK BITS • •••■ 

. SU^BJTINE UNdlTlSw. I.ANSl 

. S«»STRING A'JDRESS 

. I a riRD I^E* IN SW • ASSUMED INTERLEAVE^ 

. »1»S«RETU»N A\S!1 >»..,A"S(32I«BITS FRBm S'a 



PAjE 








LCI 


-> 






PS; .J 


PTAB 






x«,r: 


*<!b 






U,"!! 


C.W'i 




ADDPESS OF Sa 


buEZ 


»*2 






L"»R11 


•nil 






AVJ.Tll 


= X<1F 


■FF ' 




L*.<>1* 


l.Rl 




ADDRESS SF I 


buEZ 


«*J 






L"- c -;» 


• Pl« 






A _.*1« 


■X'lFFFF' 




L-,«l? 


2,»1 




ADCRESS BF ANS 


UJll 


*»2 






l*»ki2 


•Rl? 






A'.J.HIJ 


•X 1 1PFFF' 




L*.^2 


• Kl» 






AI,i2 


•1 






SLS.=)2 


1 






L»."i5 


•»U»«a 






LI.I-? 


as 






LIiN3 


3 






LI.* 








SLC.R* 


1 






ST.-,,R» 


•R12.RJ 






A I . - 3 


1 






B3R.R2 


LfiSP 






LCI 









PLI <j 


PTAB 




RESTORE hEGIST 


A...R15 


HI* 






B 


•P15 




HETU»* 


TITLE 


< .... 


H8UTINE PKBIT 


• PACKS 32 BITS 



S^-OUTINE p*F)IT(Sa» LENT) 

SX.STBIN& a^oresS 
I . »BRD I'.'DEX IN S- . ASSUMED INTERLEAVF3 

FLAG, BROS TB B£ ENTERED INTS STRING S. 

ENT.tNTllU ...»LNT(3?I 
LCI 
PS. »0 PTTB 



5 


156 


5 


187 


5 


lag 


5 


1*9 


S 


19C 


S 


191 


5 


19? 


5 


193 


S 


19» 


5 


195 


5 


19fc 


5 


137 


5 


198 


5 


199 


s 


200 


5 


201 


5 


202 


i 


203 


5 


20* 


5 


205 


5 


2Cfc 


5 


207 


5 


20S 


S 


209 


5 


210 


5 


211 


5 


212 


S 


213 


9 


21» 


5 


215 


5 


216 


5 


317 


5 


£18 


5 


219 


S 


220 


5 


221 


5 


222 


5 


223 


S 


22* 


5 


225 


S 


224 


s 


2?7 


s 


223 


£ 


229 


s 


230 


5 


231 


5 


S32 


S 


233 


S 


23t 


5 


235 


S 


236 


s 


237 


s 


238 


5 


239 


S 


2»0 


5 


?»1 


9 


2*2 


5 


2«3 


5 


2t» 


s. 


2tS 


5 


~Z*6 


5 


2»7 


5 


2*8 


S 


2«9 


5 


250 


5 


2S1 


9 


2S2 


9 


253 


9 


25* 


5 


235 


9 


2S6 


9 


257 


S 


258 


9 


255 


9 


240 


9 


261 


9 


262 


9 


263 


5 


26« 


5 


265 


5 


266 


9 


267 


5 


2SS 


9 


269 


9 


270 


9 


271 


9 


S7S 


9 


273 


9 


27» 


9 


275 


5 


276 


9 


277 


5 


278 


9 


279 


5 


280 


9 


2S1 


9 


29? 


S 


283 


9 


28» 


9 


285 


9 


286 


S 


287 


9 


288 


9 


289 


9 


290 


9 


291 



208 



iU.Rl 




"15 


1*1^11 




C..R1 


BuiZ 




• ♦2 


La.^11 




•Rll 


*Mj»«11 




■JX'IFFFF 


L«.-W}» 




l.Rl 


BoE* 




**a 


L*»H1» 




•tii* 


AV*r<l» 




•X'IFFFF 


L...R12 




2,*1 


B3tZ 




««2 


Lh.sia 




•ri2 


A\u»R12 




• JiMFFFF 


I>»h2 


• Rl» 


AI,rf2 


•1 




SLS.RS 


1 





AODRESS 8F S* 



A30RESS 8F I 



*AS* BUT 8P CbOE 
ADDRESS 9F EM 



MASK BUT 8P C80E 



LI»R5 


•32 


Ll.™7 





tiiki; 


32 


A«,h7 


•»12,H5 


SLU.R6 


1 


BIR.S5 


L8SP1 


SID.R6 


•1 


ST»»R7 


• »1H»? 


LCI 





PLMjO 


''TAB 


A«,«15 


Rl<t 


B 


•R15 



END 



! 


29? 


5 


293 


5 


29* 


5 


295 


S 


296 


5 


297 


S 


298 


5 


299 


5 


300 


5 


301 


5 


302 


5 


303 


5 


301. 


5 


305 


5 


306 


5 


307 



5 


306 


5 


309 


S 


310 


5 


311 


5 


31? 


5 


313 


5 


31» 


5 


315 


5 


316 


5 


317 


5 


318 


5 


319 


5 


320 



209 



2.6.115 SUBROUTINE PKB.YT LISTING 
ALSO INCLUDES: 

2.6.116 SUBROUTINE PKHW 
2. 6. 121 SUBROUTINE UPBYT 
2. 6. 122 SUBROUTINE UPHW 



?9jtIme: bfd»"r.p«.a'rT.u< , H/. < PK*is 

. • JPBYT.PKnYT/ijPHWjPKH.. 1 1 

DEF uPBYT»PKerT/U°H 1 ,HHH« » ? 

&EF aETdY.PTRV.HALf.PTHLF » 3 

jPSYl ELU GETtJY » » 

PK.HY! t3 u PTBY » 5 

,Pi» ERu MAL*-" » «■ 

P<-|> EJJ PT-LF » 7 

ENj » S 



210 



2.6.123 SUBROUTINE FMTNUM, LISTING 
ALSO INCLUDES: 

2, 8. 124 SUBROUTINE INTRNUM 



ROjTI'-E! F-lTNu1< INTRNUM 



« » 


FMT i^'U I 


sT^NUM 






BfcF 


F^TNol 






DEF 


INTR'.brf 




HMOS 


DSECT 








*ES 


1 


F~TTYP 




«ES 


1 


F*TOB 


F-JVJ-, 


HES 


1 




INT^Nl^ 


Data 
ENi 


CO 





211 



7 1 

7 ? 

7 3 

7 » 

7 5 

7 6 



*U.S. GOVERNMENT PRINTING OFFICE : 1977 0-731-610/112 



DOT LIBRARY 



00386245 




R&D